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

From-SVN: r26851

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e421d52f53bbc0f7396d1d12cdfc28a326b7fdde..8f47a2272cccba526a093b55540597c22ff9cd33 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 7bb1a281e227e866b6887e30a3e893cb14158355..e5e0412f5876c43fb25c57f0f8baba3ecb8124ab 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)