diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-12-16 23:49:33 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-12-16 23:49:33 +0000 |
| commit | 2789de5d9638a74def5f6a6a33c34667dc3ca1ab (patch) | |
| tree | 460dcf43b642f9e8d7c560bbb706e15713047421 /gcc | |
| parent | 1c8745ce8df04860668ca9be7436ac333fa54f0c (diff) | |
| download | gcc-2789de5d9638a74def5f6a6a33c34667dc3ca1ab.zip gcc-2789de5d9638a74def5f6a6a33c34667dc3ca1ab.tar.gz gcc-2789de5d9638a74def5f6a6a33c34667dc3ca1ab.tar.bz2 | |
re PR fortran/24268 (gfortran rejects valid format statement)
2005-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/24268
* gfortran.dg/fmt_white.f: New test.
From-SVN: r108696
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_white.f | 13 |
2 files changed, 19 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index bd4561a..391df15 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,11 @@ +2005-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/24268 + * gfortran.dg/fmt_white.f: New test. + 2005-12-16 Steven G. Kargl <kargls@comcast.net> - gfortran.dg/label_1.f90: New test. + * gfortran.dg/label_1.f90: New test. 2005-12-15 Ben Elliston <bje@au.ibm.com> diff --git a/gcc/testsuite/gfortran.dg/fmt_white.f b/gcc/testsuite/gfortran.dg/fmt_white.f new file mode 100644 index 0000000..21a0d87 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_white.f @@ -0,0 +1,13 @@ +! { dg-do run } +! PR24268 Test case derived from example given by Iwan Kawrakow +! Prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> + program pr24268 + real x + character*11 line + line = "12.34" + read(line,*) x + write(line,10) x + 10 format(g1 + * 1.4) + if (line.ne." 12.34") call abort() + end |