From 19ce9ba0a2dd343020f9b7c2f32da0071b1f8b24 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 21 Dec 2008 22:06:34 +0000 Subject: 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_g0_1.f08 | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f47f4d04..70b014d 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 c85ee2d..2e7fc18 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 -- cgit v1.1