[Bug rtl-optimization/20306] [4.0/4.1 Regression] FP complex modes moved via GPRs

[dje at gcc dot gnu dot org]

------- Additional Comments From dje at gcc dot gnu dot org  2005-03-03 19:26 -------
Example Fortran code derived from BLAS ZGEMM routine.

      SUBROUTINE Z ( M, N, C, LDC )
*     .. Scalar Arguments ..
      INTEGER            M, N, LDC
*     .. Array Arguments ..
      COMPLEX*16         C( LDC, * )
*     .. Local Scalars ..
      INTEGER            I, J
*     .. Parameters ..
      COMPLEX*16         ZERO
      PARAMETER        ( ZERO = ( 0.0D+0, 0.0D+0 ) )
*
            DO 20, J = 1, N
               DO 10, I = 1, M
                  C( I, J ) = ZERO
   10          CONTINUE
   20       CONTINUE
*
      RETURN
      END

-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20306