--- a/gcc/testsuite/gfortran.dg/move_alloc_10.f90	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/move_alloc_10.f90	Thu Oct 25 10:21:07 2018 +0900
@@ -22,31 +22,31 @@
 
    allocate (tmp)
 
-   if (tmp%i /= 2 .or. tmp%j /= 77) call abort()
+   if (tmp%i /= 2 .or. tmp%j /= 77) STOP 1
    tmp%i = 5
    tmp%j = 88
 
    select type(a)
      type is(base_type)
-       if (a%i /= -44) call abort()
+       if (a%i /= -44) STOP 2
        a%i = -99
      class default
-       call abort ()
+       STOP 3
    end select
 
    call move_alloc (from=tmp, to=a)
 
    select type(a)
      type is(extended_type)
-       if (a%i /= 5) call abort()
-       if (a%j /= 88) call abort()
+       if (a%i /= 5) STOP 4
+       if (a%j /= 88) STOP 5
        a%i = 123
        a%j = 9498
      class default
-       call abort ()
+       STOP 6
    end select
 
-   if (allocated (tmp)) call abort()
+   if (allocated (tmp)) STOP 7
   end subroutine myallocate
 end module myalloc
 
@@ -59,19 +59,19 @@
 
   select type(a)
     type is(base_type)
-      if (a%i /= 2) call abort()
+      if (a%i /= 2) STOP 8
       a%i = -44
     class default
-      call abort ()
+      STOP 9
   end select
 
   call myallocate (a)
 
   select type(a)
     type is(extended_type)
-      if (a%i /= 123) call abort()
-      if (a%j /= 9498) call abort()
+      if (a%i /= 123) STOP 10
+      if (a%j /= 9498) STOP 11
     class default
-      call abort ()
+      STOP 12
   end select
 end program main