1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4.f03 b/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4.f03
index b3caff0a5a9..8ee79a3b7ea 100644
--- a/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4.f03
+++ b/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4.f03
@@ -19,7 +19,7 @@ contains
     shape(1) = num_elems
     call c_f_pointer(cPtr, myArrayPtr, shape) 
     do i = 1, num_elems
-       if(myArrayPtr(i) /= (i-1)) call abort ()
+       if(myArrayPtr(i) /= (i-1)) STOP 1
     end do
   end subroutine test_long_long_1d
 
@@ -38,7 +38,7 @@ contains
     call c_f_pointer(cPtr, myArrayPtr, shape(1:3:2)) 
     do j = 1, num_cols
        do i = 1, num_rows
-          if(myArrayPtr(i,j) /= ((j-1)*num_rows)+(i-1)) call abort ()
+          if(myArrayPtr(i,j) /= ((j-1)*num_rows)+(i-1)) STOP 2
        end do
     end do
   end subroutine test_long_long_2d
@@ -54,7 +54,7 @@ contains
     shape(1) = num_elems
     call c_f_pointer(cPtr, myArrayPtr, shape) 
     do i = 1, num_elems
-       if(myArrayPtr(i) /= (i-1)) call abort ()
+       if(myArrayPtr(i) /= (i-1)) STOP 3
     end do
   end subroutine test_long_1d
 
@@ -69,7 +69,7 @@ contains
     shape(1) = num_elems
     call c_f_pointer(cPtr, myArrayPtr, shape) 
     do i = 1, num_elems
-       if(myArrayPtr(i) /= (i-1)) call abort ()
+       if(myArrayPtr(i) /= (i-1)) STOP 4
     end do
   end subroutine test_int_1d
 
@@ -84,7 +84,7 @@ contains
     shape(1) = num_elems
     call c_f_pointer(cPtr, myArrayPtr, shape) 
     do i = 1, num_elems
-       if(myArrayPtr(i) /= (i-1)) call abort ()
+       if(myArrayPtr(i) /= (i-1)) STOP 5
     end do
   end subroutine test_short_1d
 
@@ -100,14 +100,14 @@ contains
     shape1(1) = num_elems
     call c_f_pointer(cPtr, myArrayPtr, shape1) 
     do i = 1, num_elems
-       if(myArrayPtr(i) /= (i-1)) call abort ()
+       if(myArrayPtr(i) /= (i-1)) STOP 6
     end do
 
     nullify(myArrayPtr)
     shape2(1) = num_elems
     call c_f_pointer(cPtr, myArrayPtr, shape2) 
     do i = 1, num_elems
-       if(myArrayPtr(i) /= (i-1)) call abort ()
+       if(myArrayPtr(i) /= (i-1)) STOP 7
     end do
   end subroutine test_mixed
 end module c_f_pointer_shape_tests_4