* 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>
|
||||
|
||||
* lib/gcc-dg.exp: load_lib scanasm.exp.
|
||||
|
22
gcc/testsuite/gcc.c-torture/execute/ieee/20001122-1.c
Normal file
22
gcc/testsuite/gcc.c-torture/execute/ieee/20001122-1.c
Normal file
@ -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
Block a user