1 files changed, 13 insertions, 13 deletions
diff --git a/gcc/testsuite/gfortran.dg/sizeof.f90 b/gcc/testsuite/gfortran.dg/sizeof.f90
index fbe6b868fb0..a9d844a89fa 100644
--- a/gcc/testsuite/gfortran.dg/sizeof.f90
+++ b/gcc/testsuite/gfortran.dg/sizeof.f90
@@ -7,12 +7,12 @@ subroutine check_int (j)
   logical :: l(6)
   integer(8) :: jb(5,4)
 
-  if (sizeof (jb) /= 2*sizeof (ib)) call abort
+  if (sizeof (jb) /= 2*sizeof (ib)) STOP 1
 
   if (sizeof(j) == 4) then
-     if (sizeof (j) /= sizeof (i)) call abort
+     if (sizeof (j) /= sizeof (i)) STOP 2
   else
-     if (sizeof (j) /= 2 * sizeof (i)) call abort
+     if (sizeof (j) /= 2 * sizeof (i)) STOP 3
   end if
 
   ipa=>ib(2:3,1)
@@ -20,9 +20,9 @@ subroutine check_int (j)
   l = (/ sizeof(i) == 4, sizeof(ia) == 20, sizeof(ib) == 80, &
        sizeof(ip) == 4, sizeof(ipa) == 8, sizeof(ib(1:5:2,3)) == 12 /)
 
-  if (any(.not.l)) call abort
+  if (any(.not.l)) STOP 4
 
-  if (sizeof(l) /= 6*sizeof(l(1))) call abort
+  if (sizeof(l) /= 6*sizeof(l(1))) STOP 5
 end subroutine check_int
 
 subroutine check_real (x, y)
@@ -33,14 +33,14 @@ subroutine check_real (x, y)
   double precision :: d(5,5)
   complex(kind=4) :: c(5)
 
-  if (sizeof (y) /= 5*sizeof (x)) call abort
+  if (sizeof (y) /= 5*sizeof (x)) STOP 6
 
-  if (sizeof (r) /= 8000*4) call abort
+  if (sizeof (r) /= 8000*4) STOP 7
   rp => r(5,2:10,1:5)
-  if (sizeof (rp) /= 45*4) call abort
+  if (sizeof (rp) /= 45*4) STOP 8
   rp => r(1:5,1:5,1)
-  if (sizeof (d) /= 2*sizeof (rp)) call abort
-  if (sizeof (c(1)) /= 2*sizeof(r(1,1,1))) call abort
+  if (sizeof (d) /= 2*sizeof (rp)) STOP 9
+  if (sizeof (c(1)) /= 2*sizeof(r(1,1,1))) STOP 10
 end subroutine check_real
 
 subroutine check_derived ()
@@ -68,8 +68,8 @@ subroutine check_derived ()
   real :: r(200), s(500)
   type(all) :: v
 
-  if (sizeof(a) /= sizeof(i)) call abort
-  if (sizeof(oof) /= sizeof(rab)) call abort
+  if (sizeof(a) /= sizeof(i)) STOP 11
+  if (sizeof(oof) /= sizeof(rab)) STOP 12
   allocate (v%r(500))
   sizev500 = sizeof (v)
   size_500 = sizeof (v%r)
@@ -79,7 +79,7 @@ subroutine check_derived ()
   size_200 = sizeof (v%r)
   deallocate (v%r)
   if (size_500 - size_200 /= sizeof(s) - sizeof(r) .or. sizev500 /= sizev200) &
-       call abort
+       STOP 13
 end subroutine check_derived
 
 call check_int (1)