gcc/testsuite/g77.f-torture/execute/erfc.f

   1 c============================================== test.f
   2                 real x, y
   3                 real*8 x1, y1
   4                 x=0.
   5                 y = erfc(x)
   6                 if (y .ne. 1.) call abort
   7
   8                 x=1.1
   9                 y = erfc(x)
  10                 if (abs(y - .1197949) .ge. 1.e-6) call abort
  11
  12 * modified from x=10, y .gt. 1.5e-44 to avoid lack of -mieee on Alphas.
  13                 x=8
  14                 y = erfc(x)
  15                 if (y .gt. 1.2e-28) call abort
  16
  17                 x1=0.
  18                 y1 = erfc(x1)
  19                 if (y1 .ne. 1.) call abort
  20
  21                 x1=1.1d0
  22                 y1 = erfc(x1)
  23                 if (abs(y1 - .1197949d0) .ge. 1.d-6) call abort
  24
  25                 x1=10
  26                 y1 = erfc(x1)
  27                 if (y1 .gt. 1.5d-44) call abort
  28                 end
  29 c=================================================
  30 !output:
  31 !  0.  1.875
  32 !  1.10000002  1.48958981
  33 !  10.  5.00220949E-06
  34 !
  35 !The values should be:
  36 !erfc(0)=1
  37 !erfc(1.1)= 0.1197949
  38 !erfc(10)<1.543115467311259E-044