From 674e6e2b8ab45773bd9b2881ca37d478a4e72203 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Sun, 21 Dec 2008 22:06:34 +0000 Subject: [PATCH] 2008-12-21 Jerry DeLisle PR libfortran/38398 * gfortran.dg/fmt_g0_1.f08: Revise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@142876 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_g0_1.f08 | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f47f4d04714..70b014d21dd 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 c85ee2dc781..2e7fc1877a4 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 -- 2.11.0