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

re PR libfortran/61173 (Erroneous "end of file" with internal read)

Browse source 
2014-05-24  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/61173
	gfortran.dg/arrayio_14.f90: New test.

From-SVN: r210899
This commit is contained in:
Jerry DeLisle 2014-05-24 19:30:38 +00:00
parent 03c0f19520
commit 1ebfdcab6b
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 @@
2014-05-24 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/61173
gfortran.dg/arrayio_14.f90: New test.
2014-05-24 Andreas Schwab <schwab@suse.de>
* gcc.c-torture/execute/bswap-2.c (main): Handle more bitfield

18
gcc/testsuite/gfortran.dg/arrayio_14.f90 Normal file
View file

@ -0,0 +1,18 @@
! { dg-do run }
! PR61173.f90 Bogus END condition
module bd
character(len=25, kind=1), dimension(:), allocatable, save :: source
contains
subroutine init_data
allocate(source(2))
source=[" 1 1 1 ", " 4 4 4 "]
end subroutine init_data
end module bd
program read_internal
use bd
integer :: x(6),i
call init_data
read(source,*) (x(i), i=1,6)
if (any(x/=[1,1,1,4,4,4])) call abort
end program read_internal