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

   1 ! { dg-do compile }
   2
   3       SUBROUTINE WORK(I, J)
   4       INTEGER I, J
   5       END SUBROUTINE WORK
   6       SUBROUTINE WRONG1(N)
   7       INTEGER N
   8         INTEGER I,J
   9 !$OMP PARALLEL DEFAULT(SHARED)
  10 !$OMP DO
  11           DO I = 1, N
  12              ! incorrect nesting of loop regions
  13 !$OMP DO     ! { dg-error "may not be closely nested" }
  14              DO J = 1, N
  15                 CALL WORK(I,J)
  16              END DO
  17           END DO
  18 !$OMP END PARALLEL
  19       END SUBROUTINE WRONG1