1 c============================================== test.f
6 if (y
.ne
. 1.) call abort
10 if (abs
(y
- .1197949) .ge
. 1.e
-6) call abort
12 * modified from x
=10, y
.gt
. 1.5e-44 to avoid lack of
-mieee on Alphas
.
15 if (y
.gt
. 1.2e-28) call abort
19 if (y1
.ne
. 1.) call abort
23 if (abs
(y1
- .1197949d0
) .ge
. 1.d
-6) call abort
27 if (y1
.gt
. 1.5d
-44) call abort
29 c=================================================
32 ! 1.10000002 1.48958981
35 !The values should be
:
38 !erfc
(10)<1.543115467311259E-044