[Bug libfortran/20068] New: Backspace problems

["craig dot powers at gmail dot com" <gcc-bugzilla at gcc dot gnu dot org>]

For an input file containing:
INITIAL_CONFIG 300


The following code will fail with a runtime error if the write statement is
commented out:
PROGRAM Test
  IMPLICIT NONE

  INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15,300)
  REAL(DP)      :: init_vel
  CHARACTER(40) :: Fstart

  OPEN(UNIT=20,FILE='test.inp',POSITION='REWIND')

  READ(20,*) Fstart

!  WRITE(*,*) 'Reading in key value "',Fstart,'"'
  BACKSPACE(20)

  READ(20,*) Fstart, init_vel

  WRITE(*,*) 'Read was successful: ',Fstart,' = ',init_vel
END PROGRAM Test

-- 
           Summary: Backspace problems
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: craig dot powers at gmail dot com
                CC: gcc-bugs at gcc dot gnu dot org


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