Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/appendix-a/a10.1.f90 @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
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