diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/spellcheck-procedure_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/spellcheck-procedure_2.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/spellcheck-procedure_2.f90 b/gcc/testsuite/gfortran.dg/spellcheck-procedure_2.f90 index fbd4dcde540..c390254678f 100644 --- a/gcc/testsuite/gfortran.dg/spellcheck-procedure_2.f90 +++ b/gcc/testsuite/gfortran.dg/spellcheck-procedure_2.f90 @@ -15,7 +15,7 @@ program spellchekc integer :: i i = 0 - if (i /= 1) call abort + if (i /= 1) STOP 1 call bark_unless_0(i) ! { dg-error "not explicitly declared; did you mean .bark_unless_zero.\\?" } ! call complain_about_0(i) ! { -dg-error "not explicitly declared; did you mean .complain_about_zero.\\?" } @@ -23,7 +23,7 @@ contains ! We cannot reliably see this ATM, would need an unambiguous bit somewhere subroutine complain_about_zero(iarg) integer, intent(in) :: iarg - if (iarg /= 0) call abort + if (iarg /= 0) STOP 2 end subroutine complain_about_zero end program spellchekc @@ -31,5 +31,5 @@ end program spellchekc subroutine bark_unless_zero(iarg) implicit none integer, intent(in) :: iarg - if (iarg /= 0) call abort + if (iarg /= 0) STOP 3 end subroutine bark_unless_zero |