------- Comment #26 from jvdelisle at gcc dot gnu dot org 2010-03-29 02:50
-------
Reopening. I have one more regression here related to the patch sequence here.
It has to do with reading a file with no EOR marker at the end of a file.
program test
character (len=80) :: line
character (len=20) :: filename
integer :: n, k=0
n = command_argument_count()
if (n > 0) then
call get_command_argument(1,filename)
else
stop 'argument missing'
endif
open(unit=25,file=filename,status='old')
do
read(25,'(a80)',end=100,err=101) line
k = k+1
print*,k,' : ',line(1:len_trim(line))
enddo
stop "ok"
100 stop 100
101 stop 101
end program test
I know the exact location of the problem in transfer.c (next_record_r) and am
working on a patch.
--
jvdelisle at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|RESOLVED |REOPENED
Resolution|FIXED |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43265
