From 8fbba42a965310642c0c893c640b2a86f1b6dd9e Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 6 Apr 2007 15:42:26 +0000 Subject: [PATCH] re PR fortran/31395 ([4.2 Only] Colon edit descriptor is ignored unless preceded by a comma or a slash) 2007-04-06 Jerry DeLisle PR libgfortran/31395 * gfortran.dg/fmt_colon.f90: New test. From-SVN: r123621 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_colon.f90 | 14 ++++++++++++++ 2 files changed, 19 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_colon.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 780aa13e59e..8da3a00def0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-04-06 Jerry DeLisle + + PR libgfortran/31395 + * gfortran.dg/fmt_colon.f90: New test. + 2007-04-06 Mark Mitchell * g++.old-deja/g++.other/init18.C: Use diff --git a/gcc/testsuite/gfortran.dg/fmt_colon.f90 b/gcc/testsuite/gfortran.dg/fmt_colon.f90 new file mode 100644 index 00000000000..03d31f87004 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_colon.f90 @@ -0,0 +1,14 @@ +! { dg-do run } +! PR31395 Colon edit descriptor is ignored. +! Test case derived from PR. Prepared by Jerry DeLisle +! +PROGRAM test + INTEGER :: i = 1 + character(30) :: astring + WRITE(astring, 10) i + 10 FORMAT('i =',I2:' this should not print') + if (astring.ne."i = 1") call abort + write(astring, 20) i, i + 20 format('i =',I2:' this should print',I2) + if (astring.ne."i = 1 this should print 1") call abort +END PROGRAM test \ No newline at end of file