Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/vla8.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 f6334be47118
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 ! { dg-do run } 1 ! { dg-do run }
2 ! { dg-options "-std=legacy" }
2 ! { dg-timeout-factor 2.0 } 3 ! { dg-timeout-factor 2.0 }
3 4
4 call test 5 call test
5 contains 6 contains
6 subroutine check (x, y, l) 7 subroutine check (x, y, l)
234 do 125, p = 1, 5 235 do 125, p = 1, 5
235 do 125, q = 4, 6 236 do 125, q = 4, 6
236 l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q 237 l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
237 125 continue 238 125 continue
238 !$omp end parallel 239 !$omp end parallel
239 if (l) call abort 240 if (l) STOP 1
240 end subroutine foo 241 end subroutine foo
241 242
242 subroutine test 243 subroutine test
243 character (len = 12) :: c 244 character (len = 12) :: c
244 character (len = 7) :: d 245 character (len = 7) :: d