* gcc.c-torture/execute/ieee/20001122-1.c: New test.
From-SVN: r37657
This commit is contained in:
parent
ed5db764d5
commit
e5a7acddf6
|
@ -1,3 +1,7 @@
|
||||||
|
2000-11-22 Jakub Jelinek <jakub@redhat.com>
|
||||||
|
|
||||||
|
* gcc.c-torture/execute/ieee/20001122-1.c: New test.
|
||||||
|
|
||||||
2000-11-22 Hans-Peter Nilsson <hp@bitrange.com>
|
2000-11-22 Hans-Peter Nilsson <hp@bitrange.com>
|
||||||
|
|
||||||
* lib/gcc-dg.exp: load_lib scanasm.exp.
|
* lib/gcc-dg.exp: load_lib scanasm.exp.
|
||||||
|
|
|
@ -0,0 +1,22 @@
|
||||||
|
volatile double a, *p;
|
||||||
|
|
||||||
|
int main ()
|
||||||
|
{
|
||||||
|
double c, d;
|
||||||
|
volatile double b;
|
||||||
|
|
||||||
|
d = 1.0;
|
||||||
|
p = &b;
|
||||||
|
do
|
||||||
|
{
|
||||||
|
c = d;
|
||||||
|
d = c * 0.5;
|
||||||
|
b = 1 + d;
|
||||||
|
} while (b != 1.0);
|
||||||
|
|
||||||
|
a = 1.0 + c;
|
||||||
|
if (a == 1.0)
|
||||||
|
abort();
|
||||||
|
|
||||||
|
exit (0);
|
||||||
|
}
|
Loading…
Reference in New Issue