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
