! * This file is part of the Score-P software (http://www.score-p.org)
! *
! * Copyright (c) 2009-2011,
! *    RWTH Aachen University, Germany
! *    Gesellschaft fuer numerische Simulation mbH Braunschweig, Germany
! *    Technische Universitaet Dresden, Germany
! *    University of Oregon, Eugene, USA
! *    Forschungszentrum Juelich GmbH, Germany
! *    German Research School for Simulation Sciences GmbH, Juelich/Aachen, Germany
! *    Technische Universitaet Muenchen, Germany
! *
! * See the COPYING file in the package base directory for details.
! *
! * Testfile for automated testing of OPARI2
! *
! * @authors Bernd Mohr, Peter Philippen
! *
! * @brief Test the --disable=atomic


      program test1_disable_atomic
      IMPLICIT NONE
      
      SUBROUTINE foo(A,N)
      INTEGER N
      
c$omp parallel

c$omp atomic
      N=0

c$omp end parallel      

      END SUBROUTINE SMART_ALLOCATE_REAL
      end program test1_free
