diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/internal_dummy_4.f08')
-rw-r--r-- | gcc/testsuite/gfortran.dg/internal_dummy_4.f08 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/internal_dummy_4.f08 b/gcc/testsuite/gfortran.dg/internal_dummy_4.f08 index 8ade99efb88..c88925a597e 100644 --- a/gcc/testsuite/gfortran.dg/internal_dummy_4.f08 +++ b/gcc/testsuite/gfortran.dg/internal_dummy_4.f08 @@ -21,7 +21,7 @@ contains integer(c_int), intent(inout) :: arg integer(c_int), intent(in) :: res call a(arg) - if(arg /= res) call abort() + if(arg /= res) STOP 1 end subroutine test_sub subroutine test_func(a, arg, res) interface @@ -32,7 +32,7 @@ contains end interface integer(c_int), intent(in) :: arg integer(c_int), intent(in) :: res - if(a(arg) /= res) call abort() + if(a(arg) /= res) STOP 2 end subroutine test_func end module test_mod |