diff options
| author | No Author <no-author@gcc.gnu.org> | 2001-03-16 12:52:21 +0000 |
|---|---|---|
| committer | No Author <no-author@gcc.gnu.org> | 2001-03-16 12:52:21 +0000 |
| commit | 7f236610e99c7a11fb18f056b6446b3c7c40979c (patch) | |
| tree | 49f3776b3f6d52869280ed319564c7c1d72d18a5 /gcc/testsuite/g77.f-torture/execute/erfc.f | |
| parent | 418f81eefb6540582e4818225404d4a647ad67eb (diff) | |
This commit was manufactured by cvs2svn to create tag 'gcc-2_95_3'.releases/gcc-2.95.3
From-SVN: r40553
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/erfc.f')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/erfc.f | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/erfc.f b/gcc/testsuite/g77.f-torture/execute/erfc.f deleted file mode 100644 index e5e0412f587..00000000000 --- a/gcc/testsuite/g77.f-torture/execute/erfc.f +++ /dev/null @@ -1,38 +0,0 @@ -c============================================== test.f - real x, y - real*8 x1, y1 - x=0. - y = erfc(x) - if (y .ne. 1.) call abort - - x=1.1 - y = erfc(x) - if (abs(y - .1197949) .ge. 1.e-6) call abort - -* 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.2e-28) call abort - - x1=0. - y1 = erfc(x1) - if (y1 .ne. 1.) call abort - - x1=1.1d0 - y1 = erfc(x1) - if (abs(y1 - .1197949d0) .ge. 1.d-6) call abort - - x1=10 - y1 = erfc(x1) - if (y1 .gt. 1.5d-44) call abort - end -c================================================= -!output: -! 0. 1.875 -! 1.10000002 1.48958981 -! 10. 5.00220949E-06 -! -!The values should be: -!erfc(0)=1 -!erfc(1.1)= 0.1197949 -!erfc(10)<1.543115467311259E-044 |