mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-11 17:45:03 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/34560 (I/O internal read: END expected, but no failure)

Browse Source 
2007-12-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/34560
	* gfortran.dg/read_eof_5.f90: New test.

From-SVN: r131178
This commit is contained in:
Jerry DeLisle 2007-12-26 03:41:06 +00:00
parent f15db427e1
commit e724582c24
2 changed files with 17 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 @@
2007-12-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/34560
* gfortran.dg/read_eof_5.f90: New test.
2007-12-25 Tobias Burnus <burnus@net-b.de>
PR fortran/34514

12
gcc/testsuite/gfortran.dg/read_eof_5.f90 Normal file
View File

@ -0,0 +1,12 @@
! { dg-do run }
! PR34560 I/O internal read: END expected, but no failure
program main
character(len=2) :: line
character(len=1) :: a(3)
a = "x"
line = 'ab'
read (line,'(A)',END=99) a
call abort
99 continue
if (any(a /= ['a','x','x'])) call abort
end program main