mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-23 14:31:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/24268 (gfortran rejects valid format statement)

Browse Source 
2005-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/24268
	* gfortran.dg/fmt_white.f: New test.

From-SVN: r108696
This commit is contained in:
Jerry DeLisle 2005-12-16 23:49:33 +00:00
parent 1c8745ce8d
commit 2789de5d96
2 changed files with 19 additions and 1 deletions
gcc/testsuite
ChangeLog
gfortran.dg
fmt_white.f

7
gcc/testsuite/ChangeLog

@ -1,6 +1,11 @@
2005-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/24268
* gfortran.dg/fmt_white.f: New test.
2005-12-16 Steven G. Kargl <kargls@comcast.net>
gfortran.dg/label_1.f90: New test.
* gfortran.dg/label_1.f90: New test.
2005-12-15 Ben Elliston <bje@au.ibm.com>

13
gcc/testsuite/gfortran.dg/fmt_white.f Normal file

@ -0,0 +1,13 @@
! { dg-do run }
! PR24268 Test case derived from example given by Iwan Kawrakow
! Prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
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