gcc/testsuite/gfortran.dg/g77/erfc.f

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