diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/bind_c_dts_2.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 b/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 index 4e5e61b4ee8..fc77d1e2a45 100644 --- a/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 +++ b/gcc/testsuite/gfortran.dg/bind_c_dts_2.f03 @@ -30,32 +30,32 @@ contains integer(c_int), value :: expected_j if (my_type%my_nested_type%i .ne. expected_i) then - call abort () + STOP 1 end if if (.not. c_associated(my_type%my_nested_type%nested_c_address, & expected_nested_c_address)) then - call abort () + STOP 2 end if if (my_type%my_nested_type%array(1) .ne. expected_array_1) then - call abort () + STOP 3 end if if (my_type%my_nested_type%array(2) .ne. expected_array_2) then - call abort () + STOP 4 end if if (my_type%my_nested_type%array(3) .ne. expected_array_3) then - call abort () + STOP 5 end if if (.not. c_associated(my_type%c_address, expected_c_address)) then - call abort () + STOP 6 end if if (my_type%j .ne. expected_j) then - call abort () + STOP 7 end if end subroutine sub0 end module bind_c_dts_2 |