diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-01-06 01:28:40 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-01-06 01:28:40 +0000 |
| commit | 5c1fac10027111f60694aca0dd7f1103b09ae865 (patch) | |
| tree | 4db7b8bf37f0109f5943d72eef597b025f77ee96 /gcc | |
| parent | ea9b43e614097e72cde6d3018e77c4e5fdf257df (diff) | |
| download | gcc-5c1fac10027111f60694aca0dd7f1103b09ae865.zip gcc-5c1fac10027111f60694aca0dd7f1103b09ae865.tar.gz gcc-5c1fac10027111f60694aca0dd7f1103b09ae865.tar.bz2 | |
re PR fortran/24268 (gfortran rejects valid format statement)
2005-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/24268
* gfortran.dg/fmt_white.f: Update test.
From-SVN: r109404
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_white.f | 7 |
2 files changed, 11 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index eb11257..c68573b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/24268 + * gfortran.dg/fmt_white.f: Update test. + 2006-01-05 Carlos O'Donell <carlos@codesourcery.com> * gcc.dg/cast-1.c: Add new warning. diff --git a/gcc/testsuite/gfortran.dg/fmt_white.f b/gcc/testsuite/gfortran.dg/fmt_white.f index 21a0d87..bcd056f 100644 --- a/gcc/testsuite/gfortran.dg/fmt_white.f +++ b/gcc/testsuite/gfortran.dg/fmt_white.f @@ -1,13 +1,18 @@ ! { dg-do run } ! PR24268 Test case derived from example given by Iwan Kawrakow +! Embedded spaces in format strings should be ignored. ! Prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> program pr24268 real x - character*11 line + character*13 line line = "12.34" read(line,*) x write(line,10) x 10 format(g1 * 1.4) if (line.ne." 12.34") call abort() + line = "" + write(line,20) x + 20 format(t r 2 , g 1 1 . 4) + if (line.ne." 12.34") call abort() end |