1! { dg-do run }
2      SUBROUTINE WORK1()
3      END SUBROUTINE WORK1
4      SUBROUTINE WORK2()
5      END SUBROUTINE WORK2
6      PROGRAM A10
7!$OMP PARALLEL
8!$OMP SINGLE
9        print *, "Beginning work1."
10!$OMP END SINGLE
11        CALL WORK1()
12!$OMP SINGLE
13        print *, "Finishing work1."
14!$OMP END SINGLE
15!$OMP SINGLE
16        print *, "Finished work1 and beginning work2."
17!$OMP END SINGLE NOWAIT
18        CALL WORK2()
19!$OMP END PARALLEL
20      END PROGRAM A10
21