Hi, this code causes an ICE with -O and higher:
% cat cat gfcbug54.f90 module mod_foo integer :: param end module mod_foo program gfcbug54 use mod_foo, only : param integer, parameter :: n = 5 integer :: j2a (-1-n:n+1), j2i (-1-n:n+1) if (param < 0) j2a = j2i end program gfcbug54 % gfc -O gfcbug54.f90 gfcbug54.f90: In function 'MAIN__': gfcbug54.f90:11: internal compiler error: in operand_equal_p, at fold-const.c:2539 -- Summary: [Optimization] ICE in operand_equal_p, at fold- const.c:2539 Product: gcc Version: 4.3.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: anlauf at gmx dot de GCC host triplet: i686-pc-linux-gnu http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30412