diff gcc/testsuite/gfortran.dg/pr55330.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/pr55330.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/gcc/testsuite/gfortran.dg/pr55330.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -16,7 +16,7 @@
   end subroutine
   subroutine redirect_ (ch)
     character(*) :: ch(:)
-    if (ch(1) /= line) call abort ()
+    if (ch(1) /= line) STOP 1
   end subroutine redirect_
 end module global
 
@@ -35,8 +35,8 @@
     use global
     type(point), pointer :: ptr
     character(128) :: io(:)
-    if (associated (ptr)) call abort ()
-    if (io(1) .ne. line) call abort ()
+    if (associated (ptr)) STOP 2
+    if (io(1) .ne. line) STOP 3
   end subroutine r
 end module my_module
 
@@ -67,7 +67,7 @@
   end subroutine option_stopwatch_s 
   subroutine option_stopwatch_a (a)
     character (*) :: a(:)
-    if (any (a .ne. (/'hello ','hola! ','goddag'/))) call abort ()
+    if (any (a .ne. (/'hello ','hola! ','goddag'/))) STOP 4
   end subroutine option_stopwatch_a
 
 end program main