The following program should print "OK". This is a regression as gfortran 4.1.3
and 4.2.2 print "OK" and not "FAIL" as gfortran 4.3.0.
(Found using the Fortran Company Fortran 90 Test Suite (Lite), Version 1.4)
implicit none
integer :: i
! NAME_FIELD is an internal file.
CHARACTER * 80 :: NAME_FIELD
integer::name_array(17)=0
do i=1,16
write(name_field(5*i-4:5*i),"(i5)")i
end do
! If the array NAME_ARRAY has more than 16 elements,
! an end-of-file condition will occur and the statement
! labeled 98 will be executed next.
READ (NAME_FIELD, 100, END=98) NAME_ARRAY
100 FORMAT (16I5)
97 print*,'FAIL - expected END=98'
stop
98 print*,'OK'
end
--
Summary: Regression 4.3: I/O internal read: END expected, but no
failure
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Keywords: wrong-code
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: burnus at gcc dot gnu dot org
OtherBugsDependingO 32834
nThis:
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34560
