[Bug tree-optimization/22356] New: mis-match types in cplxlower

["pinskia at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

Take the following code:
typedef _Complex float GFC_COMPLEX_4;
void product_c4 (GFC_COMPLEX_4 *src, GFC_COMPLEX_4 *dest, int len)
{
  int n;
  GFC_COMPLEX_4 result;
  for (n = 0; n < len; n++, src += 1)
    result *= *src;
  *dest = result;
}

We get a mis-match type after cplxlower:
t.c: In function 'product_c4':
t.c:4: error: statement types mismatch
result$realD.1290_28 = REALPART_EXPR <resultD.1270_10>;

floatD.21
GFC_COMPLEX_4D.1263
t.c:4: error: statement types mismatch
result$imagD.1291_29 = IMAGPART_EXPR <resultD.1270_10>;

floatD.21
GFC_COMPLEX_4D.1263

-- 
           Summary: mis-match types in cplxlower
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: tree-optimization
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: pinskia at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org


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