diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/character_comparison_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/character_comparison_2.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/character_comparison_2.f90 b/gcc/testsuite/gfortran.dg/character_comparison_2.f90 index d4c38e82784..33fa5a9d3b8 100644 --- a/gcc/testsuite/gfortran.dg/character_comparison_2.f90 +++ b/gcc/testsuite/gfortran.dg/character_comparison_2.f90 @@ -19,13 +19,13 @@ program main n = n + 1 ; if (c(k2:) .eq. c(k2:4)) call yes n = n + 1 ; if (c(:) .ge. c) call yes n = n + 1 ; if (c .le. c) call yes - if (c(1:2) /= c(1:2)) call abort - if (c(k1:k2) > c(k1:k2)) call abort - if (c(:2) < c(1:2)) call abort - if (c(:) .ne. c) call abort - if (c(:2) .gt. c(1:2)) call abort - if (c(1:2) .lt. c(:2)) call abort - if (n /= i) call abort + if (c(1:2) /= c(1:2)) STOP 1 + if (c(k1:k2) > c(k1:k2)) STOP 2 + if (c(:2) < c(1:2)) STOP 3 + if (c(:) .ne. c) STOP 4 + if (c(:2) .gt. c(1:2)) STOP 5 + if (c(1:2) .lt. c(:2)) STOP 6 + if (n /= i) STOP 7 end program main subroutine yes |