From: Jerry DeLisle Date: Sun, 21 Dec 2008 22:06:34 +0000 (+0000) Subject: re PR fortran/38398 (g0.w edit descriptor: Update for F2008 Tokyo meeting changes) X-Git-Tag: releases/gcc-4.4.0~1140 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=19ce9ba0a2dd343020f9b7c2f32da0071b1f8b24;p=thirdparty%2Fgcc.git re PR fortran/38398 (g0.w edit descriptor: Update for F2008 Tokyo meeting changes) 2008-12-21 Jerry DeLisle PR libfortran/38398 * gfortran.dg/fmt_g0_1.f08: Revise. From-SVN: r142876 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f47f4d047148..70b014d21dd9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-12-21 Jerry DeLisle + + PR libfortran/38398 + * gfortran.dg/fmt_g0_1.f08: Revise. + 2008-12-21 Richard Sandiford * gcc.target/mips/mips.exp: Rewrite. diff --git a/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 b/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 index c85ee2dc7818..2e7fc1877a44 100644 --- a/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 +++ b/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 @@ -8,13 +8,13 @@ write(buffer, string) ':',0,':' if (buffer.ne.":0:") call abort write(buffer, string) ':',1.0/3.0,':' - if (buffer.ne.": 0.33333334 :") call abort + if (buffer.ne.":.33333334:") call abort write(buffer, '(1x,a,g0,a)') ':',1.0/3.0,':' - if (buffer.ne." : 0.33333334 :") call abort + if (buffer.ne." :.33333334:") call abort write(buffer, string) ':',"hello",':' if (buffer.ne.":hello:") call abort write(buffer, "(g0,g0,g0,g0)") ':',.true.,.false.,':' if (buffer.ne.":TF:") call abort write(buffer, "(g0,g0,',',g0,g0)") '(',( 1.2345, 2.4567 ),')' - if (buffer.ne."( 1.2345001 , 2.4567001 )") call abort + if (buffer.ne."(1.2345001,2.4567001)") call abort end