With recent trunk, gfortran incorrectly generates an error for the following standard code: MODULE M1 CONTAINS FUNCTION correct_input(i) INTEGER :: i,correct_input(5) IF (i<1) correct_input=test(1) IF (i>5) correct_input=test(5) END FUNCTION correct_input
RECURSIVE FUNCTION test(i) INTEGER :: test(5),i,j IF (i<1 .OR. i>5) THEN test=correct_input(i) ELSE test=0 test(1:6-i)=(/(j,j=i,5)/) test=test(3) ENDIF END FUNCTION END MODULE M1 USE M1 IF (ANY(TEST(3).NE.(/5,5,5,5,5/))) CALL ABORT() IF (ANY(TEST(6).NE.(/0,0,0,0,0/))) CALL ABORT() END -- Summary: incorrect error message for valid code Product: gcc Version: 4.3.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: jv244 at cam dot ac dot uk http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30876