gcc/testsuite/gfortran.dg/gomp/appendix-a/a.23.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 A23_2_GOOD()
         COMMON /C/ X,Y
         REAL X, Y
         INTEGER I
!$OMP PARALLEL
!$OMP DO PRIVATE(/C/)
           DO I=1,1000
             ! do work here
           ENDDO
!$OMP END DO
!
!$OMP DO PRIVATE(X)
           DO I=1,1000
             ! do work here
           ENDDO
!$OMP END DO
!$OMP END PARALLEL
       END SUBROUTINE A23_2_GOOD