bug with internal file I/O?

[Magnus Hagdorn]

Hi all,
the attached program does not run as expected. I would have hoped that
the internal file I/O realises it has reached the end of the sting and
stopped the implied do loop. I tried this code with the NAG compiler
where it works as expected. Both gfortran-4.1 and gfortran-4.2 reach the
end of the do loop.
Cheers
magnus

-------------- next part --------------
A non-text attachment was scrubbed...
Name: test.f90
Type: text/x-fortran
Size: 272 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20070608/bc795cfb/attachment.bin>