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

   1 ! { dg-do compile }
   2
   3         SUBROUTINE WORK(I, J)
   4         INTEGER I,J
   5         END SUBROUTINE WORK
   6
   7         SUBROUTINE A6_WRONG
   8         INTEGER I, J
   9         DO 100 I = 1,10
  10 !$OMP DO
  11         DO 100 J = 1,10
  12         CALL WORK(I,J)
  13         100      CONTINUE
  14 !$OMP ENDDO     ! { dg-error "Unexpected ..OMP END DO statement" }
  15         END SUBROUTINE A6_WRONG