diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/char_cast_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_cast_2.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/char_cast_2.f90 b/gcc/testsuite/gfortran.dg/char_cast_2.f90 index 4c038b36684..a6b351812bb 100644 --- a/gcc/testsuite/gfortran.dg/char_cast_2.f90 +++ b/gcc/testsuite/gfortran.dg/char_cast_2.f90 @@ -6,7 +6,7 @@ ! The code comes from http://www.star.le.ac.uk/~cgp/fortran.html (by Clive Page) ! Reported by Thomas Koenig <tkoenig@gcc.gnu.org> ! - if (any (Up ("AbCdEfGhIjKlM") .ne. (/"ABCDEFGHIJKLM"/))) call abort () + if (any (Up ("AbCdEfGhIjKlM") .ne. (/"ABCDEFGHIJKLM"/))) STOP 1 contains Character (len=20) Function Up (string) Character(len=*) string |