--- a/gcc/testsuite/gfortran.dg/class_array_2.f03	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/class_array_2.f03	Thu Oct 25 10:21:07 2018 +0900
@@ -21,14 +21,14 @@
   call display(x, [1], [4], t2 = [(type2(i,42.0 + float (i)), i = 1, 4)])
   call display(x, [1], [4], t2 = [(type2(111,99.0), i = 1, 4)])
 
-  if (any (disp (x) .ne. [99.0,99.0,99.0,99.0])) call abort
+  if (any (disp (x) .ne. [99.0,99.0,99.0,99.0])) STOP 1
 
   if (associated (x)) deallocate (x)
 
   allocate(x(1:4), source = type1(42))
   call display(x, [1], [4], t1 = [(type1(42), i = 1, 4)])
   call display(x, [1], [4], t1 = [type1(42),type1(99),type1(42),type1(42)])
-  if (any (disp (x) .ne. [0.0,0.0,0.0,0.0])) call abort
+  if (any (disp (x) .ne. [0.0,0.0,0.0,0.0])) STOP 2
 
   if (associated (x)) deallocate (x)
 
@@ -41,17 +41,17 @@
     select type (x)
       type is (type1)
         if (present (t1)) then
-          if (any (x%i .ne. t1%i)) call abort
+          if (any (x%i .ne. t1%i)) STOP 3
         else
-          call abort
+          STOP 4
         end if
         x(2)%i = 99
       type is (type2)
         if (present (t2)) then
-          if (any (x%i .ne. t2%i)) call abort
-          if (any (x%r .ne. t2%r)) call abort
+          if (any (x%i .ne. t2%i)) STOP 5
+          if (any (x%r .ne. t2%r)) STOP 6
         else
-          call abort
+          STOP 7
         end if
         x%i = 111
         x%r = 99.0
@@ -61,8 +61,8 @@
   subroutine bounds (x, lower, upper)
     class(type1), pointer, dimension (:) :: x
     integer, dimension (:) :: lower, upper
-    if (any (lower .ne. lbound (x))) call abort
-    if (any (upper .ne. ubound (x))) call abort
+    if (any (lower .ne. lbound (x))) STOP 8
+    if (any (upper .ne. ubound (x))) STOP 9
   end subroutine
   elemental function disp(y) result(ans)
     class(type1), intent(in) :: y