------- 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

Reply via email to