[Bug libfortran/59513] New: Fortran runtime error: Sequential READ or WRITE not allowed after EOF marker, possibly use REWIND or BACKSPACE

[aruopp at gmx dot de]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59513

            Bug ID: 59513
           Summary: Fortran runtime error: Sequential READ or WRITE not
                    allowed after EOF marker, possibly use REWIND or
                    BACKSPACE
           Product: gcc
           Version: 4.7.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: aruopp at gmx dot de

Compiling xfoil, a known fortran code for airfoils works perfectly. Execution
of xfoil creates an error, unfortunetly. 
Problem during execution of xfoil:
At line 652 of file ../src/iopol.f (unit = 9, file = 'polarfile_1.dat')
Fortran runtime error: Sequential READ or WRITE not allowed after EOF marker,
possibly use REWIND or BACKSPACE

Source code can be found for example in:
http://code.google.com/p/mjl-xfoil/source/browse/branches/osx/src/iopol.f?r=5

The compiler has problems with:
...
DO 40 IA = IA1, IA2
WRITE(LU,LINEF)
& (CPOL(IA,IPOL(KP)), KP=1, NIPOL),
& ((CPOLSD(IA,IS,JPOL(KP)), IS=1, 2*NBL), KP=1, NJPOL)
40 CONTINUE
...
?
Bug in compiler or bug in source code.
Source code works with gcc-4.3.6

Thanks in advance