diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-12-21 22:06:34 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-12-21 22:06:34 +0000 |
| commit | 19ce9ba0a2dd343020f9b7c2f32da0071b1f8b24 (patch) | |
| tree | ef366970133d43cb6b0a8b2ebff1274c2b5cf8cf /gcc | |
| parent | c05854ec7da5f0e343c2387b0ca46bd55741f73e (diff) | |
| download | gcc-19ce9ba0a2dd343020f9b7c2f32da0071b1f8b24.zip gcc-19ce9ba0a2dd343020f9b7c2f32da0071b1f8b24.tar.gz gcc-19ce9ba0a2dd343020f9b7c2f32da0071b1f8b24.tar.bz2 | |
re PR fortran/38398 (g0.w edit descriptor: Update for F2008 Tokyo meeting changes)
2008-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/38398
* gfortran.dg/fmt_g0_1.f08: Revise.
From-SVN: r142876
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 f47f4d04..70b014d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/38398 + * gfortran.dg/fmt_g0_1.f08: Revise. + 2008-12-21 Richard Sandiford <rdsandiford@googlemail.com> * 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 |