Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/appendix-a/a.2.1.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | a06113de4d67 |
children |
line wrap: on
line source
! { dg-do run } PROGRAM A2 INCLUDE "omp_lib.h" ! or USE OMP_LIB INTEGER X X=2 !$OMP PARALLEL NUM_THREADS(2) SHARED(X) IF (OMP_GET_THREAD_NUM() .EQ. 0) THEN X=5 ELSE ! PRINT 1: The following read of x has a race PRINT *,"1: THREAD# ", OMP_GET_THREAD_NUM(), "X = ", X ENDIF !$OMP BARRIER IF (OMP_GET_THREAD_NUM() .EQ. 0) THEN ! PRINT 2 PRINT *,"2: THREAD# ", OMP_GET_THREAD_NUM(), "X = ", X ELSE ! PRINT 3 PRINT *,"3: THREAD# ", OMP_GET_THREAD_NUM(), "X = ", X ENDIF !$OMP END PARALLEL END PROGRAM A2