diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/char_length_17.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_length_17.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/char_length_17.f90 b/gcc/testsuite/gfortran.dg/char_length_17.f90 index a9cf1f75586..75398d8e148 100644 --- a/gcc/testsuite/gfortran.dg/char_length_17.f90 +++ b/gcc/testsuite/gfortran.dg/char_length_17.f90 @@ -8,7 +8,7 @@ program main i = 3 c(i:i) = 'a' c(i+1:i+1) = 'b' - if (c(i:i) /= 'a') call abort () - if (c(i+1:i+1) /= 'b') call abort () + if (c(i:i) /= 'a') STOP 1 + if (c(i+1:i+1) /= 'b') STOP 2 end program main ! { dg-final { scan-tree-dump-times "gfortran_compare_string" 0 "original" } } |