blob: d7c2b33fde100362a99fd48a6b454d28d2dff304 (
plain)
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
|
/* CYGNUS LOCAL -- meissner/16 bit ints */
static inline long
g1 (double x)
{
return (double) (long) x;
}
long
g2 (double f)
{
return f;
}
double
f (long i)
{
if (g1 (i) != g2 (i))
abort ();
return g2 (i);
}
main ()
{
if (f (123456789L) != 123456789L)
abort ();
if (f (123456789L) != g2 (123456789L))
abort ();
exit (0);
}
/* END CYGNUS LOCAL -- meissner/16 bit ints */
|
