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

re PR fortran/60810 (list directed io from array results in end of file)

Browse Source 
2014-04-28  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/60810
	* gfortran.dg/arrayio_13.f90: New test.

From-SVN: r209888
This commit is contained in:
Jerry DeLisle 2014-04-29 03:13:34 +00:00
parent 90a098a72f
commit 32a360864e
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 @@
2014-04-28 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/60810
* gfortran.dg/arrayio_13.f90: New test.
2014-04-28 Martin Jambor <mjambor@suse.cz> 2014-04-28 Martin Jambor <mjambor@suse.cz>
* gcc.dg/tree-ssa/sra-14.c: New test. * gcc.dg/tree-ssa/sra-14.c: New test.

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

@ -0,0 +1,14 @@
! { dg-do run }
! PR60810 Bogus end-of-file
program readstrlist
character(len=80), dimension(2) :: ver
integer :: a, b, c
a = 1
b = 2
c = 3
ver(1) = '285 383'
ver(2) = '985'
read( ver, *) a, b, c
if (a /= 285 .or. b /= 383 .or. c /= 985) call abort
!write ( *, *) a, b, c
end