Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gcc.c-torture / execute / 921113-1.c
blob78972bc975ee20e2362cedc31a3c753c78b7bb1c
1 #define STACK_REQUIREMENT (128 * 128 * 4 + 1024)
2 #if defined (STACK_SIZE) && STACK_SIZE < STACK_REQUIREMENT
3 main () { exit (0); }
4 #else
6 typedef struct {
7 float wsx;
8 } struct_list;
10 typedef struct_list *list_t;
12 typedef struct {
13 float x, y;
14 } vector_t;
16 w(float x, float y) {}
18 f1(float x, float y)
20 if (x != 0 || y != 0)
21 abort();
23 f2(float x, float y)
25 if (x != 1 || y != 1)
26 abort();
29 gitter(int count, vector_t pos[], list_t list, int *nww, vector_t limit[2], float r)
31 float d;
32 int gitt[128][128];
34 f1(limit[0].x, limit[0].y);
35 f2(limit[1].x, limit[1].y);
37 *nww = 0;
39 d = pos[0].x;
40 if (d <= 0.)
42 w(d, r);
43 if (d <= r * 0.5)
45 w(d, r);
46 list[0].wsx = 1;
51 vector_t pos[1] = {{0., 0.}};
52 vector_t limit[2] = {{0.,0.},{1.,1.}};
54 main()
56 int nww;
57 struct_list list;
59 gitter(1, pos, &list, &nww, limit, 1.);
60 exit(0);
63 #endif