From 2789de5d9638a74def5f6a6a33c34667dc3ca1ab Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 16 Dec 2005 23:49:33 +0000 Subject: [PATCH] re PR fortran/24268 (gfortran rejects valid format statement) 2005-12-16 Jerry DeLisle PR fortran/24268 * gfortran.dg/fmt_white.f: New test. From-SVN: r108696 --- gcc/testsuite/ChangeLog | 7 ++++++- gcc/testsuite/gfortran.dg/fmt_white.f | 13 +++++++++++++ 2 files changed, 19 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/gfortran.dg/fmt_white.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index bd4561a26343..391df153fd9d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,11 @@ +2005-12-16 Jerry DeLisle + + PR fortran/24268 + * gfortran.dg/fmt_white.f: New test. + 2005-12-16 Steven G. Kargl - gfortran.dg/label_1.f90: New test. + * gfortran.dg/label_1.f90: New test. 2005-12-15 Ben Elliston diff --git a/gcc/testsuite/gfortran.dg/fmt_white.f b/gcc/testsuite/gfortran.dg/fmt_white.f new file mode 100644 index 000000000000..21a0d871dde8 --- /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 + 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