2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 960209-1.c
blobdecd2af2aab7f10180e339d315cd377f9acd9bb2
1 struct a_struct
3 unsigned char a_character;
4 };
6 struct a_struct an_array[5];
7 struct a_struct *a_ptr;
8 int yabba = 1;
10 int
11 f (a, b)
12 unsigned char a;
13 unsigned long b;
15 long i, j, p, q, r, s;
17 if (b != (unsigned long) 0)
19 if (yabba)
20 return -1;
21 s = 4000000 / b;
22 for (i = 0; i < 11; i++)
24 for (j = 0; j < 256; j++)
26 if (((p - s < 0) ? -s : 0) < (( q - s < 0) ? -s : q))
27 r = i;
32 if (yabba)
33 return 0;
34 a_ptr = &an_array[a];
35 a_ptr->a_character = (unsigned char) r;
38 main ()
40 if (f (1, 0UL) != 0)
41 abort ();
42 exit (0);