diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/missing_optional_dummy_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/missing_optional_dummy_1.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/missing_optional_dummy_1.f90 b/gcc/testsuite/gfortran.dg/missing_optional_dummy_1.f90 index 29f08f9e0e8..c869819956e 100644 --- a/gcc/testsuite/gfortran.dg/missing_optional_dummy_1.f90 +++ b/gcc/testsuite/gfortran.dg/missing_optional_dummy_1.f90 @@ -9,17 +9,17 @@ ! This was the case that would fail - PR case was an intrinsic call. if (scan ("A quick brown fox jumps over the lazy dog", "lazy", back) & .ne. myscan ("A quick brown fox jumps over the lazy dog", "lazy")) & - call abort () + STOP 1 ! Check that the patch works with non-intrinsic functions. if (myscan ("A quick brown fox jumps over the lazy dog", "fox", back) & .ne. thyscan ("A quick brown fox jumps over the lazy dog", "fox")) & - call abort () + STOP 2 ! Check that missing, optional character actual arguments are OK. if (scan ("A quick brown fox jumps over the lazy dog", "over", back) & .ne. thyscan ("A quick brown fox jumps over the lazy dog")) & - call abort () + STOP 3 contains integer function myscan (str, substr, back) |