FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/25419 (gfortran read does not take comma for default on one entry)

Browse source 
2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25419
	* gfortran.dg/comma.f: New test.

From-SVN: r109100
This commit is contained in:
Jerry DeLisle 2005-12-28 07:00:47 +00:00
parent 93f006d8e3
commit f55be19d7b
2 changed files with 23 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 @@
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25419
* gfortran.dg/comma.f: New test.
2005-12-28 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* lib/gfortran-dg.exp: Remove trailing whitespace.

18
gcc/testsuite/gfortran.dg/comma.f Normal file
View file

@ -0,0 +1,18 @@
! { dg-do run }
! PR25419 Default input with commas.
! Derived from example given in PR.
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
stuff = 1
stuff2 = 2
write(11,'(a)') ",,"
rewind(11)
read(11,*)stuff, stuff2
if (stuff.ne.1.0) call abort()
if (stuff2.ne.2.0) call abort()
rewind (11)
write(11,'(a)') ","
rewind(11)
read(11,*)stuff
if (stuff.ne.1.0) call abort()
end