re PR fortran/84381 (replace non-std 'call abort' by 'stop 1' in gfortran testsuite)

[thirdparty/gcc.git] / libgomp / testsuite / libgomp.fortran / reduction5.f90

diff --git a/libgomp/testsuite/libgomp.fortran/reduction5.f90 b/libgomp/testsuite/libgomp.fortran/reduction5.f90
index 24c2ff612e26bc1f23cf0f4fd89d5866b872c5ac..f8fdcb471fe6fd5cdb28aa00a18662f82fb2195f 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/reduction5.f90
+++ b/libgomp/testsuite/libgomp.fortran/reduction5.f90
@@ -18,7 +18,7 @@ contains
 !$omp section
     n = bitwise_or (n, Z'2000')
 !$omp end parallel sections
-    if (n .ne. Z'243f') call abort
+    if (n .ne. Z'243f') STOP 1
   end subroutine
   subroutine test2
     use reduction5, min => max, max => min
@@ -36,7 +36,7 @@ contains
     if (m .gt. 3) m = 3
     if (n .lt. -1) n = -1
 !$omp end parallel sections
-    if (m .ne. 3 .or. n .ne. 15) call abort
+    if (m .ne. 3 .or. n .ne. 15) STOP 2
   end subroutine test2
 end