gcc/testsuite/gcc.dg/tree-ssa/complex-6.c

   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" } } */
  25 /* { dg-final { cleanup-tree-dump "optimized" } } */