diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/char_length_21.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_length_21.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/char_length_21.f90 b/gcc/testsuite/gfortran.dg/char_length_21.f90 index 76b7e8e28e8..188d84e6b40 100644 --- a/gcc/testsuite/gfortran.dg/char_length_21.f90 +++ b/gcc/testsuite/gfortran.dg/char_length_21.f90 @@ -7,5 +7,5 @@ program rabbithole character(len=20) :: ctwenty='abcdefghijabcdefghij' ii = -6 text_block = [character(len=ii) :: cten, ctwenty] - if (any(len_trim(text_block) /= 0)) call abort + if (any(len_trim(text_block) /= 0)) STOP 1 end program rabbithole |