repo.or.cz
/
cegcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
UUID stuff from Ryan Raasch
[cegcc.git]
/
cegcc
/
src
/
gcc-4.3.2
/
libgomp
/
testsuite
/
libgomp.fortran
/
appendix-a
/
a10.1.f90
blob
c1564bf4b3f379d775a49192c6619e89849d0d22
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