Hi,
I don't have easy access to lucid right now but I reduced the problem to
a simple test program:
skl...@lapkluth2:~$ cat testtoend.f
program testtoend
implicit none
integer iunit
data iunit / 10 /
character*21 fname
data fname / 'img-M269236-25154.pdf' /
print *, 'open file ', fname
open( unit=22, file=fname, form='formatted', status='old' )
print *, 'forward to EOF'
call toend( iunit )
print *, 'done, stop'
close( iunit )
stop
end
subroutine toend( iunit )
implicit none
integer iunit, ios
ios= 0
dowhile( ios.eq.0 )
read( unit=iunit, fmt='(1x)', iostat=ios )
enddo
return
end
skl...@lapkluth2:~$ gfortran-4.4 -g -o testtoend testtoend.f
skl...@lapkluth2:~$ ./testtoend
open file img-M269236-25154.pdf
forward to EOF
^C
skl...@lapkluth2:~$ gfortran-4.2 -g -o testtoend testtoend.f
skl...@lapkluth2:~$ ./testtoend
open file img-M269236-25154.pdf
forward to EOF
done, stop
skl...@lapkluth2:~$
Using gdb shows that it is stuck in an infinite loop in line 20 of the
fortran file, the "read( ..." statement, as in my original report.
You can try for yourself now, just take any old ascii file as input.
Cheers, Stefan
On Tue, 29 Dec 2009, Matthias Klose wrote:
> please could you
> - recheck with gfortran-4.4 from lucid and gcc-snapshot from lucid?
> - attach the self-contained source to build this example?
>
> ** Changed in: gcc-4.4 (Ubuntu)
> Status: New => Incomplete
>
> --
> gfortran produces executable with infinite loop
> https://bugs.launchpad.net/bugs/474382
> You received this bug notification because you are a direct subscriber
> of the bug.
>
-- PD Stefan Kluth, PhD ----- Wissenschaftler -------------------------
- MPI fuer Physik - phone: +49 89 32354 468 - ATLAS -
- Foehringer Ring 6 - fax: +49 89 32354 305 - &OPAL -
-- D-80805 Munich, Germany -- e-mail: [email protected] -------------
--
gfortran produces executable with infinite loop
https://bugs.launchpad.net/bugs/474382
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.
--
ubuntu-bugs mailing list
[email protected]
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs
