diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/erfc.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/erfc.f | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/erfc.f b/gcc/testsuite/gfortran.dg/g77/erfc.f index 0ab0aee8c1c..f8aae199d51 100644 --- a/gcc/testsuite/gfortran.dg/g77/erfc.f +++ b/gcc/testsuite/gfortran.dg/g77/erfc.f @@ -1,32 +1,32 @@ c { dg-do run } c============================================== test.f - real x, y - real*8 x1, y1 - x=0. - y = erfc(x) - if (y .ne. 1.) call abort + 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 + 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 +c 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=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=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 + x1=10 + y1 = erfc(x1) + if (y1 .gt. 1.5d-44) call abort + end c================================================= !output: ! 0. 1.875 |