"END=" on Multiple Executions

Product Version(s): 3.20
Operating System:   MS-DOS
Flags: ENDUSER | TAR50049 buglist3.20 fixlist3.30
Last Modified:  6-OCT-1988    ArticleIdent: Q10666

Problem:

Using "END=" to branch works properly the first time, but can fail
under multiple executions. The following code sample demonstrates this
behavior:

        program contlz

        real*4 a,b

        i = 0
10      write(*,*) 'real ?'
        read(*,*,end=200) a

        write(*,*) 'second real ?'
        read(*,*,end=200) b
        goto 100

200     write (*,*) 'end of file encountered'
100     write(*,*) 'end of program message'
        i = i + 1
        if (i.lt.3) goto 10
        end

Response:

Microsoft confirmed this to be a problem in Version 3.20 of the
FORTRAN compiler. The problem was corrected in Version 3.30.