[Bug tree-optimization/19042] Complex types are not SRA all the time.

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-12-16 
20:30 -------
Here is the reduced testcase (fortran):
      COMMON TA(6,6)                                
      COMPLEX*16 CA1,CA2,CLAM2                                                  
                  
      CA2=DCMPLX(F2,ZERO)                                                       
      CA2=SQRT(CA2)                                                             
 
      CLAM2=(EGWG2+CA2)/TWO                      
      DO 40 I=1,4                                                               
      TA(I,3)=DREAL(CLAM2)                                                      
 
   40 CONTINUE                                                                  
      RETURN                                                                    
                                                               
      END  

-- 


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