------- Additional Comments From tobi at gcc dot gnu dot org 2005-04-22 19:36 ------- Another testcase for something which looks like the same bug, this time in Fortran (reduced from LAPACK by Steve Kargl): SUBROUTINE CHER2K(N, BETA, C, LDC)
INTEGER I, J, N, LDC REAL BETA COMPLEX C(LDC,*), ZERO PARAMETER (ZERO = (0.0E+0, 0.0E+0)) IF (BETA .EQ. REAL(ZERO)) THEN DO 20, J = 1, N DO 10, I = 1, J C(I,J) = ZERO 10 CONTINUE 20 CONTINUE ELSE DO 40, J = 1, N DO 30, I = 1, J - 1 C(I,J) = BETA * C(I,J) 30 CONTINUE 40 CONTINUE END IF END -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21030