diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/implicit_12.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/implicit_12.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/implicit_12.f90 b/gcc/testsuite/gfortran.dg/implicit_12.f90 index 161d4402669..444b27934ca 100644 --- a/gcc/testsuite/gfortran.dg/implicit_12.f90 +++ b/gcc/testsuite/gfortran.dg/implicit_12.f90 @@ -8,16 +8,16 @@ module mod parameter(Q2 = 'abcdefghijkl') ! len=12 contains subroutine sub(Q3) - if(len('#'//Q3//'#') /= 15) call abort() - if('#'//Q3//'#' /= '#ABCDEFGHIJKLM#') call abort() + if(len('#'//Q3//'#') /= 15) STOP 1 + if('#'//Q3//'#' /= '#ABCDEFGHIJKLM#') STOP 2 end subroutine sub end module mod program startest use mod implicit none - if(len('#'//Q1//'#') /= 10) call abort() - if(len('#'//Q2//'#') /= 14) call abort() - if('#'//Q1//'#' /='#12345678#') call abort() - if('#'//Q2//'#' /='#abcdefghijkl#') call abort() + if(len('#'//Q1//'#') /= 10) STOP 3 + if(len('#'//Q2//'#') /= 14) STOP 4 + if('#'//Q1//'#' /='#12345678#') STOP 5 + if('#'//Q2//'#' /='#abcdefghijkl#') STOP 6 call sub('ABCDEFGHIJKLM') ! len=13 end program startest |