diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/substr_6.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/substr_6.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/substr_6.f90 b/gcc/testsuite/gfortran.dg/substr_6.f90 index a7cdc100ee6..83e788a55a6 100644 --- a/gcc/testsuite/gfortran.dg/substr_6.f90 +++ b/gcc/testsuite/gfortran.dg/substr_6.f90 @@ -7,10 +7,10 @@ CHARACTER*5 c(1) CHARACTER(1), parameter :: c1(5) = (/ "1", "2", "3", ACHAR(0), "5" /) c = c0(1)(-5:-8) -if (c(1) /= " ") call abort() +if (c(1) /= " ") STOP 1 c = (/ c0(1)(1:5) /) do i=1,5 - if (c(1)(i:i) /= c1(i)) call abort() + if (c(1)(i:i) /= c1(i)) STOP 2 ! Make NULs visible (and avoid corrupting text output). if (c(1)(i:i) == ACHAR(0)) then |