diff options
author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-01-06 01:28:40 +0000 |
---|---|---|
committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-01-06 01:28:40 +0000 |
commit | c53d038d21a28dfd393a11981b902549bdec8cf9 (patch) | |
tree | 4db7b8bf37f0109f5943d72eef597b025f77ee96 | |
parent | f5f0f99b327e0c240460d364cd43ca49420ebb67 (diff) |
2005-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/24268
* gfortran.dg/fmt_white.f: Update test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@109404 138bc75d-0d04-0410-961f-82ee72b054a4
-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 eb11257b9b1..c68573b47b3 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 21a0d871dde..bcd056f7fb9 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 |