diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/examples-4')
44 files changed, 57 insertions, 57 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 index 94da51e..08091b8 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 @@ -12,6 +12,6 @@ contains p(9) = 777 !$omp end target !$omp end target data - if (A(3) /= 777 .or. A(9) /= 777) call abort + if (A(3) /= 777 .or. A(9) /= 777) STOP 1 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 index 6eb9bc1..f730894 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 @@ -13,6 +13,6 @@ contains A(9) = 999 !$omp end target !$omp end target data - if (A(3) /= 777 .or. A(9) /= 999) call abort + if (A(3) /= 777 .or. A(9) /= 999) STOP 1 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 index c3849de..dd6f7f5 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 @@ -27,7 +27,7 @@ subroutine check () else err = (Y(i) - Z(i)) / Z(i) end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 index a94db89..2380f3a 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 @@ -17,7 +17,7 @@ subroutine check (p, N) real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine @@ -30,14 +30,14 @@ subroutine vec_mult (p, N) !$omp target data map(to: v1, v2, N) map(from: p) !$omp task shared(v1, v2, p) depend(out: v1, v2) !$omp target map(to: v1, v2, N) - if (omp_is_initial_device ()) call abort + if (omp_is_initial_device ()) STOP 2 allocate (v1(N), v2(N)) call init (v1, v2, N) !$omp end target !$omp end task !$omp task shared(v1, v2, p) depend(in: v1, v2) !$omp target map(to: v1, v2, N) map(from: p) - if (omp_is_initial_device ()) call abort + if (omp_is_initial_device ()) STOP 3 !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 index dcd2c4a..df941ee 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 @@ -26,6 +26,6 @@ end module program e_53_1 use e_53_1_mod, only : fib, fib_wrapper - if (fib (15) /= fib_wrapper (15)) call abort - if (fib (25) /= fib_wrapper (25)) call abort + if (fib (15) /= fib_wrapper (15)) STOP 1 + if (fib (25) /= fib_wrapper (25)) STOP 2 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 index 0fb64af..9c31569 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 @@ -6,7 +6,7 @@ program e_53_2 !$omp target map(from: x) x = fib (25) !$omp end target - if (x /= fib (25)) call abort + if (x /= fib (25)) STOP 1 end program integer recursive function fib (n) result (f) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 index fffbb7f..1405ea7 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 @@ -21,7 +21,7 @@ subroutine check (p, N) real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 index 7b4d7e3..47d6cd8 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 @@ -53,7 +53,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_53_4 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 index 94bd6c1..8fd6af7 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 @@ -68,7 +68,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_53_5 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 index 30148f1..a141e05 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 @@ -20,7 +20,7 @@ program e_57_1 !$omp end target !$omp end target data - if (b /= 100 .or. .not. c .or. d) call abort + if (b /= 100 .or. .not. c .or. d) STOP 1 a = a + 200 b = 0 @@ -36,7 +36,7 @@ program e_57_1 !$omp end target !$omp end target data - if (b /= 0 .or. c .or. d) call abort + if (b /= 0 .or. c .or. d) STOP 2 a = a + 200 b = 0 @@ -52,5 +52,5 @@ program e_57_1 !$omp end target !$omp end target data - if (b /= 100 .or. .not. c .or. d) call abort + if (b /= 100 .or. .not. c .or. d) STOP 3 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 index 4a304b5..a7d4f24 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 @@ -15,10 +15,10 @@ program e_57_2 end do do i = 1, num - if (offload(i)) call abort + if (offload(i)) STOP 1 end do do i = num+1, N - if (.not. offload(i)) call abort + if (.not. offload(i)) STOP 2 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 index d770b910..d6bc042 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 @@ -11,11 +11,11 @@ program e_57_3 !$omp target map(from: res) res = omp_is_initial_device () !$omp end target - if (res) call abort + if (res) STOP 1 call omp_set_default_device (omp_get_num_devices ()) !$omp target map(from: res) res = omp_is_initial_device () !$omp end target - if (.not. res) call abort + if (.not. res) STOP 2 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 index b1af859..1d705535 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 @@ -28,7 +28,7 @@ contains double precision :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 index 74a0303f..c9c162f 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 @@ -49,7 +49,7 @@ contains double precision :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine end module diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 index 2c02945..eb84970 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 @@ -57,6 +57,6 @@ program SIMD3 diff = sum - sum_ref - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 index 414f8bc..cb78e2c 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 @@ -47,7 +47,7 @@ contains real :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 index e64e1d5..561deb7 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 @@ -56,7 +56,7 @@ contains do j = 1, n do i = 1, n diff = a(i,j) - b(i,j) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 index 5cb1e04..7f7c51014 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 @@ -109,14 +109,14 @@ contains real :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine subroutine checkint (a, b, n) integer :: i, n, a(*), b(*) do i = 1, n - if (a(i) .ne. b(i)) call abort + if (a(i) .ne. b(i)) STOP 2 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 index 7560657..e6af9c8 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 @@ -23,7 +23,7 @@ program fibonacci call fib_ref (a_ref, N) do i = 0, N-1 - if (a(i) .ne. a_ref(i)) call abort () + if (a(i) .ne. a_ref(i)) STOP 1 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 index 3c7869d..722d982 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 @@ -47,6 +47,6 @@ program simd_8f diff = pri - 8237.25 - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 index 76e9068..2ec4f68 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 index af469f4..e995ef5 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 index 9754704..338189f 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 index f94794e..856ccdb 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 @@ -17,7 +17,7 @@ contains real, pointer, dimension(:) :: p do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 index 813a273..bae3041 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 @@ -19,7 +19,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine @@ -29,7 +29,7 @@ contains real :: p(N), v1(N), v2(N) call init (v1, v2, N) !$omp target if(N > THRESHOLD1) map(to: v1,v2) map(from: p) - if (omp_is_initial_device ()) call abort + if (omp_is_initial_device ()) STOP 2 !$omp parallel do if(N > THRESHOLD2) do i = 1, N p(i) = v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 index 98e5c0b..f9cceb9 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 index 360cded..219b450 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 @@ -26,7 +26,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - 2 * (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 index a05c54f..b48dbe2 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 @@ -19,7 +19,7 @@ contains do k = 1, cols do i = 1, rows diff = P(i,k) - Q(i,k) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 index e9de6ae..7499e3b 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 index 01a41ad..8057d05 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 index 9b79104..ba6d879 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 @@ -28,7 +28,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - 2 * (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine @@ -39,7 +39,7 @@ contains call init (v1, v2, N) !$omp target data if(N > THRESHOLD) map(from: p) !$omp target if(N > THRESHOLD) map(to: v1, v2) - if (omp_is_initial_device ()) call abort + if (omp_is_initial_device ()) STOP 2 !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) @@ -47,7 +47,7 @@ contains !$omp end target call init_again (v1, v2, N) !$omp target if(N > THRESHOLD) map(to: v1, v2) - if (omp_is_initial_device ()) call abort + if (omp_is_initial_device ()) STOP 3 !$omp parallel do do i = 1, N p(i) = p(i) + v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 index 8fc5832..629ef2c 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 @@ -19,7 +19,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine @@ -30,7 +30,7 @@ contains call init (v1, v2, N) !$omp target data if(N > THRESHOLD) map(to: v1, v2) map(from: p) !$omp target - if (omp_is_initial_device ()) call abort + if (omp_is_initial_device ()) STOP 2 !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 index e23c0bb..1861d44 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 @@ -26,7 +26,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - 2 * (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 index 3735e53..7734a6a 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 @@ -26,7 +26,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i * i + (i + 2.0) * (i - 3.0)) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 index 78201ea..f40e36f 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 @@ -9,7 +9,7 @@ program example x = 2 !$omp end task !$omp task shared(x) depend(in: x) - if (x .ne. 2) call abort () + if (x .ne. 2) STOP 1 !$omp end task !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 index 5afd76d..7debb60 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 @@ -6,7 +6,7 @@ program example !$omp parallel !$omp single !$omp task shared(x) depend(in: x) - if (x .ne. 1) call abort () + if (x .ne. 1) STOP 1 !$omp end task !$omp task shared(x) depend(out: x) x = 2 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 index c8d5820..34cd2c7 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 @@ -12,7 +12,7 @@ program example x = 2 !$omp end task !$omp taskwait - if ((x .ne. 1) .and. (x .ne. 2)) call abort() + if ((x .ne. 1) .and. (x .ne. 2)) STOP 1 !$omp end single !$omp end parallel end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 index 7fe24c3..47e93f9 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 @@ -9,10 +9,10 @@ program example x = 2 !$omp end task !$omp task shared(x) depend(in: x) - if (x .ne. 2) call abort () + if (x .ne. 2) STOP 1 !$omp end task !$omp task shared(x) depend(in: x) - if (x .ne. 2) call abort () + if (x .ne. 2) STOP 2 !$omp end task !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 index 0746531..9e12db3 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 @@ -51,7 +51,7 @@ contains do j = 1, N diff = A(i, j) - B(i, j) if (diff > EPS .or. -diff > EPS) then - call abort () + STOP 1 end if end do end do diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 index da5816a..794c907 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 @@ -49,7 +49,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_54_1 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 index 9de77af..1c8f7d8 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 @@ -42,7 +42,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_54_3 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 index 8d4eb55..94de777 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 @@ -44,7 +44,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_54_4 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 index 9608d9a..7e380ad 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 @@ -18,7 +18,7 @@ contains real :: diff do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 index f791188..8121fba 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 @@ -18,7 +18,7 @@ contains real :: diff do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine |