fmt_g0_1.f08: Update test.

2015-11-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* gfortran.dg/fmt_g0_1.f08: Update test. Leading zero.

From-SVN: r230729

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0e0b74f6c30da8cf671ae097b36e4996ecfd796c..7163326521621c495f5430fa02c5c724dfab94fb 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2015-11-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       * gfortran.dg/fmt_g0_1.f08: Update test. Leading zero.
+
 2015-11-22  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        PR fortran/68486

diff --git a/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 b/gcc/testsuite/gfortran.dg/fmt_g0_1.f08
index ead6f81b28aca05db0100955417fb4f75958206a..5b74a3e29a92cb9febabf094987edfc3248782d1 100644 (file)
--- 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.,':'