From cfba61d25c4acaa74c352c492150e197a4cafcba Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 22 Nov 2015 22:17:52 +0000 Subject: [PATCH] fmt_g0_1.f08: Update test. 2015-11-22 Jerry DeLisle * gfortran.dg/fmt_g0_1.f08: Update test. Leading zero. From-SVN: r230729 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/fmt_g0_1.f08 | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0e0b74f6c30..71633265216 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2015-11-22 Jerry DeLisle + + * gfortran.dg/fmt_g0_1.f08: Update test. Leading zero. + 2015-11-22 Steven G. Kargl PR fortran/68486 diff --git a/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 b/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 index ead6f81b28a..5b74a3e29a9 100644 --- a/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 +++ b/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 @@ -8,9 +8,9 @@ write(buffer, string) ':',0,':' if (buffer.ne.":0:") call abort write(buffer, string) ':',1.0_8/3.0_8,':' - if (buffer.ne.":.33333333333333331:") call abort + if (buffer.ne.":0.33333333333333331:") call abort write(buffer, '(1x,a,g0,a)') ':',1.0_8/3.0_8,':' - if (buffer.ne." :.33333333333333331:") call abort + if (buffer.ne." :0.33333333333333331:") call abort write(buffer, string) ':',"hello",':' if (buffer.ne.":hello:") call abort write(buffer, "(g0,g0,g0,g0)") ':',.true.,.false.,':' -- 2.30.2