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

re PR fortran/58324 (Bogus END-of-line error with list-directed I/O of file without trailing sequential record marker) 

2014-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/58324
	* gfortran.dg/list_read_12.f90: New test.

From-SVN: r208592
This commit is contained in:
Jerry DeLisle 2014-03-15 15:15:22 +00:00
parent e94710443a
commit f1182dd22b
2 changed files with 16 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-03-15 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/58324
* gfortran.dg/list_read_12.f90: New test.
2014-03-15 Janus Weil <janus@gcc.gnu.org>
PR fortran/55207

11
gcc/testsuite/gfortran.dg/list_read_12.f90 Normal file
View File

@ -0,0 +1,11 @@
! { dg-do run }
! PR58324 Bogus end of file condition
integer :: i, ios
open(99, access='stream', form='unformatted')
write(99) "5 a"
close(99)
open(99, access='sequential', form='formatted')
read(99, *, iostat=ios) i
if (ios /= 0) call abort
end