From: Jerry DeLisle Date: Fri, 6 Jan 2006 01:28:40 +0000 (+0000) Subject: re PR fortran/24268 (gfortran rejects valid format statement) X-Git-Tag: releases/gcc-4.2.0~5009 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5c1fac10027111f60694aca0dd7f1103b09ae865;p=thirdparty%2Fgcc.git re PR fortran/24268 (gfortran rejects valid format statement) 2005-01-05 Jerry DeLisle PR fortran/24268 * gfortran.dg/fmt_white.f: Update test. From-SVN: r109404 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index eb11257b9b1a..c68573b47b36 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-01-05 Jerry DeLisle + + PR fortran/24268 + * gfortran.dg/fmt_white.f: Update test. + 2006-01-05 Carlos O'Donell * 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 21a0d871dde8..bcd056f7fb9c 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 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