use small single-precision values, to avoid problem on Alphas when not -mieee
From-SVN: r26851
This commit is contained in:
parent
0e3df01383
commit
6d9bf07436
@ -1,3 +1,8 @@
|
||||
1999-05-10 Craig Burley <craig@jcb-sc.com>
|
||||
|
||||
* g77.f-torture/execute/erfc.f: Use small single-precision
|
||||
values, to avoid problems on Alphas when not -mieee.
|
||||
|
||||
1999-05-08 Craig Burley <craig@jcb-sc.com>
|
||||
|
||||
* gcc.dg/990506-0.c: New test.
|
||||
|
@ -9,9 +9,10 @@ c============================================== test.f
|
||||
y = erfc(x)
|
||||
if (abs(y - .1197949) .ge. 1.e-6) call abort
|
||||
|
||||
x=10
|
||||
* modified from x=10, y .gt. 1.5e-44 to avoid lack of -mieee on Alphas.
|
||||
x=8
|
||||
y = erfc(x)
|
||||
if (y .gt. 1.5e-44) call abort
|
||||
if (y .gt. 1.2e-28) call abort
|
||||
|
||||
x1=0.
|
||||
y1 = erfc(x1)
|
||||
|
Loading…
Reference in New Issue
Block a user