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

Reply via email to