Mercurial > hg > CbC > CbC_gcc
comparison libgomp/testsuite/libgomp.fortran/appendix-a/a.28.5.f90 @ 0:a06113de4d67
first commit
| author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Fri, 17 Jul 2009 14:47:48 +0900 |
| parents | |
| children | f6334be47118 |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:a06113de4d67 |
|---|---|
| 1 ! { dg-do compile } | |
| 2 | |
| 3 SUBROUTINE SUB1(X) | |
| 4 DIMENSION X(10) | |
| 5 ! This use of X does not conform to the | |
| 6 ! specification. It would be legal Fortran 90, | |
| 7 ! but the OpenMP private directive allows the | |
| 8 ! compiler to break the sequence association that | |
| 9 ! A had with the rest of the common block. | |
| 10 FORALL (I = 1:10) X(I) = I | |
| 11 END SUBROUTINE SUB1 | |
| 12 PROGRAM A28_5 | |
| 13 COMMON /BLOCK5/ A | |
| 14 DIMENSION B(10) | |
| 15 EQUIVALENCE (A,B(1)) | |
| 16 ! the common block has to be at least 10 words | |
| 17 A=0 | |
| 18 !$OMP PARALLEL PRIVATE(/BLOCK5/) | |
| 19 ! Without the private clause, | |
| 20 ! we would be passing a member of a sequence | |
| 21 ! that is at least ten elements long. | |
| 22 ! With the private clause, A may no longer be | |
| 23 ! sequence-associated. | |
| 24 CALL SUB1(A) | |
| 25 !$OMP MASTER | |
| 26 PRINT *, A | |
| 27 !$OMP END MASTER | |
| 28 !$OMP END PARALLEL | |
| 29 END PROGRAM A28_5 |