diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/deferred_type_param_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/deferred_type_param_4.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/deferred_type_param_4.f90 b/gcc/testsuite/gfortran.dg/deferred_type_param_4.f90 index c0583f5686c..160fdf124ca 100644 --- a/gcc/testsuite/gfortran.dg/deferred_type_param_4.f90 +++ b/gcc/testsuite/gfortran.dg/deferred_type_param_4.f90 @@ -23,11 +23,11 @@ contains ! print *, len(str) ! print '(3a)', '>',str,'<' if (i == 5) then - if (str /= "12345" .or. len(str) /= 5) call abort () + if (str /= "12345" .or. len(str) /= 5) STOP 1 else if (i == 7) then - if (str /= "XXXXXXX" .or. len(str) /= 7) call abort () + if (str /= "XXXXXXX" .or. len(str) /= 7) STOP 2 else - call abort () + STOP 3 end if end subroutine end |