diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/c_assoc.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/c_assoc.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/c_assoc.f90 b/gcc/testsuite/gfortran.dg/c_assoc.f90 index 9b2af24f984..89f06915408 100644 --- a/gcc/testsuite/gfortran.dg/c_assoc.f90 +++ b/gcc/testsuite/gfortran.dg/c_assoc.f90 @@ -57,11 +57,11 @@ contains type(c_ptr), value :: my_c_ptr_2 if(.not. c_associated(my_c_ptr_1)) then - call abort() + STOP 1 else if(.not. c_associated(my_c_ptr_2)) then - call abort() + STOP 2 else if(.not. c_associated(my_c_ptr_1, my_c_ptr_2)) then - call abort() + STOP 3 endif end subroutine verify_assoc |