diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/char_comparison_1.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_comparison_1.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/char_comparison_1.f b/gcc/testsuite/gfortran.dg/char_comparison_1.f index 02f69e07661..8622f55937e 100644 --- a/gcc/testsuite/gfortran.dg/char_comparison_1.f +++ b/gcc/testsuite/gfortran.dg/char_comparison_1.f @@ -11,18 +11,18 @@ C Comparison between char(255) and space padding C c2 = 'a' // char(255) c1 = 'a' - if (.not. (c2 .gt. c1)) call abort + if (.not. (c2 .gt. c1)) STOP 1 C C Comparison between char(255) and space C c3 = ' ' c4 = char(255) - if (.not. (c4 .gt. c3)) call abort + if (.not. (c4 .gt. c3)) STOP 2 C C Check constant folding C - if (.not. ('a' // char(255) .gt. 'a')) call abort + if (.not. ('a' // char(255) .gt. 'a')) STOP 3 - if (.not. (char(255) .gt. 'a')) call abort + if (.not. (char(255) .gt. 'a')) STOP 4 end |