1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_5.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_5.f90
index 12a3c4a5624..3d2b4c2abef 100644
--- a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_5.f90
+++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_5.f90
@@ -16,7 +16,7 @@ program mvall_03
   i2 = 2
   call move_alloc(i2, i1)
   if (size(i1) /= n2 .or. allocated(i2)) then
-    call abort
+    STOP 1
 !   write(*,*) 'FAIL'
   else
 !    write(*,*) 'OK'
@@ -24,18 +24,18 @@ program mvall_03
 
   select type (i1)
     type is (integer)
-      if (any (i1 /= 2)) call abort
+      if (any (i1 /= 2)) STOP 2
     class default
-      call abort()
+      STOP 1
   end select
   call move_alloc (i1, i3)
   if (size(i3) /= n2 .or. allocated(i1)) then
-    call abort()
+    STOP 2
   end if
   select type (i3)
     type is (integer)
-      if (any (i3 /= 2)) call abort
+      if (any (i3 /= 2)) STOP 3
     class default
-      call abort()
+      STOP 3
   end select
 end program