diff options
| author | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-09 23:39:03 +0000 |
|---|---|---|
| committer | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-09 23:39:03 +0000 |
| commit | fef6315d70b22ee640a3a755d22c74ebb4cb4551 (patch) | |
| tree | 12bdbfffd629017f31bde809746131990bdb7df9 | |
| parent | 75df2b366b1e8da560d677c16c3172f5395e7ca1 (diff) | |
| download | ppe42-gcc-fef6315d70b22ee640a3a755d22c74ebb4cb4551.tar.gz ppe42-gcc-fef6315d70b22ee640a3a755d22c74ebb4cb4551.zip | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/erfc.f | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e421d52f53b..8f47a2272cc 100644 --- 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 7bb1a281e22..e5e0412f587 100644 --- 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) |
