gcc/testsuite/c-c++-common/torture/complex-alias-1.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

/* Accesses to complex numbers were sometimes marked as scalar and
   sometimes as struct accesses.  */
/* { dg-do run } */
/* { dg-options "-std=c99" { target c } } */

#ifdef __cplusplus
extern "C" {
#endif
extern void abort (void);
#ifdef __cplusplus
}
#endif
static double _Complex *fp_cxd(double _Complex *cx) {
  return cx;
}

int main( ) {
  double _Complex cx = 4.0 + 3.0*(__extension__ 1.0iF);
  double _Complex cx43 = 4.0 + 3.0*(__extension__ 1.0iF);
  double _Complex cx11 = 1.0 + 1.0*(__extension__ 1.0iF);

  *fp_cxd(&cx) *= cx11;
  *fp_cxd(&cx) /= cx11;

  double r_cx = __real__(cx);
  double i_cx = __imag__(cx);
  double r_cx43 = __real__(cx43);
  double i_cx43 = __imag__(cx43);

  if( (r_cx == r_cx43) && (i_cx == i_cx43) ) { 
    return 0;
  } else {
    abort ();
  }
}