diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/character_comparison_9.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/character_comparison_9.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/character_comparison_9.f90 b/gcc/testsuite/gfortran.dg/character_comparison_9.f90 index 18b7b5e4812..737a424d66d 100644 --- a/gcc/testsuite/gfortran.dg/character_comparison_9.f90 +++ b/gcc/testsuite/gfortran.dg/character_comparison_9.f90 @@ -5,11 +5,11 @@ program main character (kind=4,len=4) :: c,d a = 'ab' b = 'aa' - if (a < b) call abort + if (a < b) STOP 1 c = 4_"aaaa" d = 4_"aaab" - if (c == d) call abort - if (c > d) call abort + if (c == d) STOP 2 + if (c > d) STOP 3 end program main ! { dg-final { scan-tree-dump-times "_gfortran_compare_string_char4" 1 "original" } } ! { dg-final { scan-tree-dump-times "__builtin_memcmp" 2 "original" } } |