OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

PR libfortran/PR42422 

2009-12-21  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/PR42422
	* gfortran.dg/list_read_10.f90:  New test.

From-SVN: r155381
This commit is contained in:
Thomas Koenig 2009-12-21 23:14:06 +00:00
parent 8de0c218e4
commit e1610cb45e
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 @@
2009-12-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/PR42422
* gfortran.dg/list_read_10.f90: New test.
2009-12-15 Jason Merrill <jason@redhat.com>
PR c++/42387

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

@ -0,0 +1,14 @@
! { dg-do run }
! PR 42422 - read with a repeat specifyer following a separator
program main
integer, dimension(10) :: i1, i2
i1 = 0
i2 = (/ 1, 2, 3, 5, 5, 5, 5, 0, 0, 0 /)
open (10,file="pr42422.dat")
write (10,'(A)') ' 1 2 3 4*5 /'
rewind 10
read (10,*) i1
if (any(i1 /= i2)) call abort
close (10,status="delete")
end program main