gomp-20050608-branch/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.6.1.f90

   1 ! { dg-do compile }
   2
   3       SUBROUTINE WORK(I, J)
   4       INTEGER I,J
   5       END SUBROUTINE WORK
   6       SUBROUTINE A6_GOOD()
   7         INTEGER I, J
   8         REAL A(1000)
   9         DO 100 I = 1,10
  10 !$OMP DO
  11            DO 100 J = 1,10
  12               CALL WORK(I,J)
  13             100     CONTINUE        ! !$OMP ENDDO implied here
  14 !$OMP DO
  15         DO 200 J = 1,10
  16 200        A(I) = I + 1
  17 !$OMP ENDDO
  18 !$OMP DO
  19         DO 300 I = 1,10
  20            DO 300 J = 1,10
  21               CALL WORK(I,J)
  22 300     CONTINUE
  23 !$OMP ENDDO
  24       END SUBROUTINE A6_GOOD