gcc/testsuite/gfortran.dg/gomp/appendix-a/a.17.2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

! { dg-do compile }

      SUBROUTINE SUB()
        COMMON /BLK/ R
        REAL R
!$OMP ATOMIC
        R = R + 1.0
      END SUBROUTINE SUB

      SUBROUTINE A17_2_WRONG()
      COMMON /BLK/ I
      INTEGER I
!$OMP PARALLEL
!$OMP ATOMIC
            I=I+1
          CALL SUB()
!$OMP END PARALLEL
      END SUBROUTINE A17_2_WRONG