Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/character1.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
65 l = l .or. f .ne. 'ZZ' .or. p .ne. 'm2' .or. r .ne. 'M2' 65 l = l .or. f .ne. 'ZZ' .or. p .ne. 'm2' .or. r .ne. 'M2'
66 else if (m .eq. 3) then 66 else if (m .eq. 3) then
67 l = l .or. f .ne. 'YY' .or. p .ne. 'm3' .or. r .ne. 'M3' 67 l = l .or. f .ne. 'YY' .or. p .ne. 'm3' .or. r .ne. 'M3'
68 end if 68 end if
69 !$omp end parallel 69 !$omp end parallel
70 if (l) call abort 70 if (l) STOP 1
71 end subroutine test 71 end subroutine test
72 end 72 end