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

   1 ! { dg-do compile }
   2         SUBROUTINE A13(X, Y)
   3         REAL X(*), Y(*)
   4         INTEGER IX_NEXT, IY_NEXT
   5 !$OMP PARALLEL SHARED(X, Y) PRIVATE(IX_NEXT, IY_NEXT)
   6 !$OMP CRITICAL(XAXIS)
   7         CALL DEQUEUE(IX_NEXT, X)
   8 !$OMP END CRITICAL(XAXIS)
   9         CALL WORK(IX_NEXT, X)
  10 !$OMP CRITICAL(YAXIS)
  11         CALL DEQUEUE(IY_NEXT,Y)
  12 !$OMP END CRITICAL(YAXIS)
  13         CALL WORK(IY_NEXT, Y)
  14 !$OMP END PARALLEL
  15       END SUBROUTINE A13
  16