xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/appendix-a/a10.1.f90 (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
1*404b540aSrobert! { dg-do run }
2*404b540aSrobert      SUBROUTINE WORK1()
3*404b540aSrobert      END SUBROUTINE WORK1
4*404b540aSrobert      SUBROUTINE WORK2()
5*404b540aSrobert      END SUBROUTINE WORK2
6*404b540aSrobert      PROGRAM A10
7*404b540aSrobert!$OMP PARALLEL
8*404b540aSrobert!$OMP SINGLE
9*404b540aSrobert        print *, "Beginning work1."
10*404b540aSrobert!$OMP END SINGLE
11*404b540aSrobert        CALL WORK1()
12*404b540aSrobert!$OMP SINGLE
13*404b540aSrobert        print *, "Finishing work1."
14*404b540aSrobert!$OMP END SINGLE
15*404b540aSrobert!$OMP SINGLE
16*404b540aSrobert        print *, "Finished work1 and beginning work2."
17*404b540aSrobert!$OMP END SINGLE NOWAIT
18*404b540aSrobert        CALL WORK2()
19*404b540aSrobert!$OMP END PARALLEL
20*404b540aSrobert      END PROGRAM A10
21