diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/simd3.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/simd3.f90 | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/simd3.f90 b/libgomp/testsuite/libgomp.fortran/simd3.f90 index df9f4cac3fe..22ff564bd06 100644 --- a/libgomp/testsuite/libgomp.fortran/simd3.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd3.f90 @@ -13,42 +13,42 @@ end do s = foo (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) call abort + if (a(i).ne.((i - 513) * b(i))) STOP 1 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + if (b(i).ne.(modulo (i - 52, 39))) STOP 3 end if a(i) = i - 513 end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) call abort + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 4 k = 4 m = 2 t = 1 s = bar (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) call abort + if (a(i).ne.((i - 513) * b(i))) STOP 5 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + if (b(i).ne.(modulo (i - 52, 39))) STOP 7 end if a(i) = i - 513 end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) call abort + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 8 k = 4 m = 2 t = 1 s = baz (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) call abort + if (a(i).ne.((i - 513) * b(i))) STOP 9 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + if (b(i).ne.(modulo (i - 52, 39))) STOP 11 end if end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) call abort + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12 contains function foo (p) integer :: p(1024), u, v, i, s, foo @@ -65,8 +65,8 @@ contains end do !$omp end do simd !$omp end parallel - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + if (i.ne.1025) STOP 13 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 14 foo = s end function foo function bar (p) @@ -84,8 +84,8 @@ contains end do !$omp end do simd !$omp endparallel - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + if (i.ne.1025) STOP 15 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 16 bar = s end function bar function baz (p) @@ -102,8 +102,8 @@ contains s = s + p(i) + k end do !$omp end parallel - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + if (i.ne.1025) STOP 17 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 18 baz = s end function baz end |