diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/hollerith_character_array_constructor.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/hollerith_character_array_constructor.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/hollerith_character_array_constructor.f90 b/gcc/testsuite/gfortran.dg/hollerith_character_array_constructor.f90 index 086d46efc2e..469262242be 100644 --- a/gcc/testsuite/gfortran.dg/hollerith_character_array_constructor.f90 +++ b/gcc/testsuite/gfortran.dg/hollerith_character_array_constructor.f90 @@ -4,8 +4,8 @@ ! Original code contributed by Gerhard Steinmetz program p character :: c(4) = [1h(, 1hi, 1h4, 1h)] - if (c(1) /= '(') call abort - if (c(2) /= 'i') call abort - if (c(3) /= '4') call abort - if (c(4) /= ')') call abort + if (c(1) /= '(') STOP 1 + if (c(2) /= 'i') STOP 2 + if (c(3) /= '4') STOP 3 + if (c(4) /= ')') STOP 4 end |