annotate gcc/testsuite/gcc.dg/complex-5.c @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* PR middle-end/33088 */
kono
parents:
diff changeset
2 /* Origin: Joseph S. Myers <jsm28@gcc.gnu.org> */
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 /* { dg-do run { target i?86-*-linux* i?86-*-gnu* x86_64-*-linux* } } */
kono
parents:
diff changeset
5 /* { dg-options "-std=c99 -O -ffloat-store -lm" } */
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 #include <fenv.h>
kono
parents:
diff changeset
8 #include <stdlib.h>
kono
parents:
diff changeset
9
kono
parents:
diff changeset
10 volatile int x[1024];
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 void __attribute__((noinline))
kono
parents:
diff changeset
13 fill_stack (void)
kono
parents:
diff changeset
14 {
kono
parents:
diff changeset
15 volatile int y[1024];
kono
parents:
diff changeset
16 int i;
kono
parents:
diff changeset
17 for (i = 0; i < 1024; i++)
kono
parents:
diff changeset
18 y[i] = 0x7ff00000;
kono
parents:
diff changeset
19 for (i = 0; i < 1024; i++)
kono
parents:
diff changeset
20 x[i] = y[i];
kono
parents:
diff changeset
21 }
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 volatile _Complex double vc;
kono
parents:
diff changeset
24
kono
parents:
diff changeset
25 void __attribute__((noinline))
kono
parents:
diff changeset
26 use_complex (_Complex double c)
kono
parents:
diff changeset
27 {
kono
parents:
diff changeset
28 vc = c;
kono
parents:
diff changeset
29 }
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 double t0, t1, t2, t3;
kono
parents:
diff changeset
32
kono
parents:
diff changeset
33 #define USE_COMPLEX(X, R, C) \
kono
parents:
diff changeset
34 do { __real__ X = R; __imag__ X = C; use_complex (X); } while (0)
kono
parents:
diff changeset
35
kono
parents:
diff changeset
36 void __attribute__((noinline))
kono
parents:
diff changeset
37 use_stack (void)
kono
parents:
diff changeset
38 {
kono
parents:
diff changeset
39 _Complex double a, b, c, d;
kono
parents:
diff changeset
40 USE_COMPLEX (a, t0, t1);
kono
parents:
diff changeset
41 USE_COMPLEX (b, t1, t2);
kono
parents:
diff changeset
42 USE_COMPLEX (c, t2, t3);
kono
parents:
diff changeset
43 USE_COMPLEX (d, t3, t0);
kono
parents:
diff changeset
44 }
kono
parents:
diff changeset
45
kono
parents:
diff changeset
46 int
kono
parents:
diff changeset
47 main (void)
kono
parents:
diff changeset
48 {
kono
parents:
diff changeset
49 fill_stack ();
kono
parents:
diff changeset
50 feclearexcept (FE_INVALID);
kono
parents:
diff changeset
51 use_stack ();
kono
parents:
diff changeset
52 if (fetestexcept (FE_INVALID))
kono
parents:
diff changeset
53 abort ();
kono
parents:
diff changeset
54 exit (0);
kono
parents:
diff changeset
55 }