use small single-precision values, to avoid problem on Alphas when not -mieee

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26851 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e421d52..8f47a22 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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.

diff --git a/gcc/testsuite/g77.f-torture/execute/erfc.f b/gcc/testsuite/g77.f-torture/execute/erfc.f
index 7bb1a28..e5e0412 100644 (file)
--- a/gcc/testsuite/g77.f-torture/execute/erfc.f
+++ b/gcc/testsuite/g77.f-torture/execute/erfc.f
@@ -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)