SUBROUTINE ACFI(X,ARG,VAL,Y,NDIM,EPS,IER) ACFI 730 IF(Q3)11,12,11 ACFI1320 11 Y=P3/Q3 ACFI1330 12 Y=1.E75 ACFI1350 END ACFI1580
This is part of http://www.ecalculations.com/SSP.EXE (this is a ZIP file). Error message of gfortran ACFI.FOR: ACFI.FOR:2.72: IF(Q3)11,12,11 1 Warning: Obsolete: arithmetic IF statement at (1) ACFI.FOR:4.13: 12 Y=1.E75 1 Error: Real constant overflows its kind at (1) ACFI.FOR:2.72: IF(Q3)11,12,11 1 Error: Label 12 referenced at (1) is never defined -- Summary: Arithmetic IF, existing label and "label not defined" Product: gcc Version: 4.3.0 Status: UNCONFIRMED Keywords: rejects-valid Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: burnus at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29870