Commit cfba61d2 by Jerry DeLisle

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
parent ba67259c
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> 2015-11-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/68486 PR fortran/68486
......
...@@ -8,9 +8,9 @@ ...@@ -8,9 +8,9 @@
write(buffer, string) ':',0,':' write(buffer, string) ':',0,':'
if (buffer.ne.":0:") call abort if (buffer.ne.":0:") call abort
write(buffer, string) ':',1.0_8/3.0_8,':' 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,':' 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",':' write(buffer, string) ':',"hello",':'
if (buffer.ne.":hello:") call abort if (buffer.ne.":hello:") call abort
write(buffer, "(g0,g0,g0,g0)") ':',.true.,.false.,':' write(buffer, "(g0,g0,g0,g0)") ':',.true.,.false.,':'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment