Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/task1.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
11 !$omp task if (.false.) default(firstprivate) 11 !$omp task if (.false.) default(firstprivate)
12 call subr (i + 1) 12 call subr (i + 1)
13 !$omp end task 13 !$omp end task
14 end if 14 end if
15 !$omp end parallel 15 !$omp end parallel
16 if (j.gt.0) call abort 16 if (j.gt.0) STOP 1
17 contains 17 contains
18 subroutine subr (i) 18 subroutine subr (i)
19 use omp_lib 19 use omp_lib
20 integer :: i, j 20 integer :: i, j
21 common /tasktest_j/ j 21 common /tasktest_j/ j