git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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  <jvdelisle@gcc.gnu.org>

	PR libgfortran/31395
	* gfortran.dg/fmt_colon.f90: New test.

From-SVN: r123621
This commit is contained in:
Jerry DeLisle 2007-04-06 15:42:26 +00:00
parent 5a97b4f907
commit 8fbba42a96
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-04-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31395
* gfortran.dg/fmt_colon.f90: New test.
2007-04-06 Mark Mitchell <mark@codesourcery.com> 2007-04-06 Mark Mitchell <mark@codesourcery.com>
* g++.old-deja/g++.other/init18.C: Use * g++.old-deja/g++.other/init18.C: Use

14
gcc/testsuite/gfortran.dg/fmt_colon.f90 Normal file
View File

@ -0,0 +1,14 @@
! { dg-do run }
! PR31395 Colon edit descriptor is ignored.
! Test case derived from PR. Prepared by Jerry DeLisle
! <jvdelisle@gcc.gnu.org>
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