--- a/gcc/testsuite/gfortran.dg/x_slash_1.f	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/x_slash_1.f	Thu Oct 25 10:21:07 2018 +0900
@@ -24,14 +24,14 @@
        read (10, 200) a
        read (10, 200) a
        do i = 1,60
-         if (ichar(a(i:i)).ne.32) call abort ()
+         if (ichar(a(i:i)).ne.32) STOP 1
        end do
        read (10, 200) a
  200   format (a60)
        do i = 1,59
-         if (ichar(a(i:i)).ne.32) call abort ()
+         if (ichar(a(i:i)).ne.32) STOP 2
        end do
-       if (a(60:60).ne."*") call abort ()
+       if (a(60:60).ne."*") STOP 3
        rewind (10)
 
 c Check that sequences of t- and x-editing generate the correct 
@@ -48,15 +48,15 @@
        read (10, 200) a
        read (10, 200) a
        do i = 1,59
-         if (ichar(a(i:i)).ne.32) call abort ()
+         if (ichar(a(i:i)).ne.32) STOP 4
        end do
-       if (a(60:60).ne."$") call abort ()
+       if (a(60:60).ne."$") STOP 5
        read (10, 200) a
-       if (a(1:10).ne."abcdghijkl") call abort ()
+       if (a(1:10).ne."abcdghijkl") STOP 6
        do i = 11,59
-         if (ichar(a(i:i)).ne.32) call abort ()
+         if (ichar(a(i:i)).ne.32) STOP 7
        end do
-       if (a(60:60).ne."*") call abort ()
+       if (a(60:60).ne."*") STOP 8
        rewind (10)
 
 c Now repeat the first test, with the write broken up into three
@@ -73,9 +73,9 @@
        read (10, 200) a
        read (10, 200) a
        do i = 11,59
-         if (ichar(a(i:i)).ne.32) call abort ()
+         if (ichar(a(i:i)).ne.32) STOP 9
        end do
-       if (a(60:60).ne."$") call abort ()
+       if (a(60:60).ne."$") STOP 10
        rewind (10)
 
 c Next we check multiple read x- and t-editing.
@@ -83,7 +83,7 @@
 
        read (10, 201) b, c
 201    format (tr10,49x,a1,/,/,2x,t60,a1)
-       if ((b.ne."#").or.(c.ne."$")) call abort ()
+       if ((b.ne."#").or.(c.ne."$")) STOP 11
        rewind (10)
 
 c Now break it up into three reads and use left tabs.
@@ -94,7 +94,7 @@
 203    format ()
        read (10, 204) c
 204    format (10x,t5,55x,a1)
-       if ((b.ne."#").or.(c.ne."$")) call abort ()
+       if ((b.ne."#").or.(c.ne."$")) STOP 12
        close (10)
 
 c Now, check that trailing spaces are not transmitted when we have
@@ -110,7 +110,7 @@
        rewind (10)
        read (10, 205, iostat = ier) i, b
   205  format (i10,a1)
-       if ((ier.eq.0).or.(ichar(b).ne.0)) call abort ()
+       if ((ier.eq.0).or.(ichar(b).ne.0)) STOP 13
 
 c That's all for now, folks!