The following programs produce a segfault when compiled with the 05/02/08
snapshot of gfortran 4.4.0 under MIPS Linux. I believe this is related to Bug
36139, even though these programs do not segfault under HPPA, and the programs
in Bug 36139 do not segfault in MIPS.
PROGRAM kmci
IMPLICIT LOGICAL (q)
DO i = 1, 2
IF (cumsur .EQ. 0.0) GO TO 20
20 qroot = quadsl(a)
ENDDO
END PROGRAM kmci
PROGRAM summt
IMPLICIT LOGICAL (q)
qqzero(zx) = zx .EQ. 0.0
DO i = 1, 2
IF (ii .EQ. 0) CONTINUE
IF (qqzero(0.0)) CONTINUE
END DO
END PROGRAM summt
--
Summary: ICE in snapshot of 05/02/08 under MIPS Linux with
IMPLICIT LOGICAL and function call
Product: gcc
Version: 4.4.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: michael dot a dot richmond at nasa dot gov
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36140
