Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/sharing2.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents a06113de4d67
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
25 j = 25 25 j = 25
26 end if 26 end if
27 !$omp barrier 27 !$omp barrier
28 if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true. 28 if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true.
29 !$omp end parallel 29 !$omp end parallel
30 if (l) call abort 30 if (l) STOP 1
31 if (j .ne. 25) call abort 31 if (j .ne. 25) STOP 2
32 end 32 end