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 c 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