Mercurial > hg > CbC > CbC_gcc
comparison libgomp/testsuite/libgomp.fortran/appendix-a/a.2.1.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 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:a06113de4d67 |
---|---|
1 ! { dg-do run } | |
2 PROGRAM A2 | |
3 INCLUDE "omp_lib.h" ! or USE OMP_LIB | |
4 INTEGER X | |
5 X=2 | |
6 !$OMP PARALLEL NUM_THREADS(2) SHARED(X) | |
7 IF (OMP_GET_THREAD_NUM() .EQ. 0) THEN | |
8 X=5 | |
9 ELSE | |
10 ! PRINT 1: The following read of x has a race | |
11 PRINT *,"1: THREAD# ", OMP_GET_THREAD_NUM(), "X = ", X | |
12 ENDIF | |
13 !$OMP BARRIER | |
14 IF (OMP_GET_THREAD_NUM() .EQ. 0) THEN | |
15 ! PRINT 2 | |
16 PRINT *,"2: THREAD# ", OMP_GET_THREAD_NUM(), "X = ", X | |
17 ELSE | |
18 ! PRINT 3 | |
19 PRINT *,"3: THREAD# ", OMP_GET_THREAD_NUM(), "X = ", X | |
20 ENDIF | |
21 !$OMP END PARALLEL | |
22 END PROGRAM A2 |