diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/fmt_g0_6.f08')
-rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_g0_6.f08 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/fmt_g0_6.f08 b/gcc/testsuite/gfortran.dg/fmt_g0_6.f08 index 982412a4631..89907434a99 100644 --- a/gcc/testsuite/gfortran.dg/fmt_g0_6.f08 +++ b/gcc/testsuite/gfortran.dg/fmt_g0_6.f08 @@ -74,7 +74,7 @@ contains end if write(s_g, "('''', " // trim(fmt_g) // ",'''')") val write(s_f, "('''', " // trim(fmt_f) // ",'''')") val - if (s_g /= s_f) call abort + if (s_g /= s_f) STOP 1 !if (s_g /= s_f) then !print "(a,g0,a,g0)", "lower=", lower, " upper=", upper ! print "(a, ' /= ', a, ' ', a, '/', a, ':', g0)", trim(s_g), trim(s_f), trim(fmt_g), trim(fmt_f), val |