1  /* { dg-do compile } */
       2  /* { dg-options "-O -fdump-tree-optimized" } */
       3  
       4  float
       5  quantum_real(float _Complex a)
       6  {
       7    float *p = (float *) &a;
       8    return p[0];
       9  }
      10  float
      11  quantum_imag(float _Complex a)
      12  {
      13    float *p = (float *) &a;
      14    return p[1];
      15  }
      16  float
      17  quantum_foo(float _Complex a)
      18  {
      19    float *p = (float *) &a;
      20    return p[2];
      21  }
      22  
      23  /* { dg-final { scan-tree-dump-times "REALPART_EXPR" 1 "optimized" } } */
      24  /* { dg-final { scan-tree-dump-times "IMAGPART_EXPR" 1 "optimized" } } */