math/s_erfl.c

   1 #include <math.h>
   2 #include <stdio.h>
   3 #include <errno.h>
   4
   5 long double
   6 __erfl (long double x)
   7 {
   8   fputs ("__erfl not implemented\n", stderr);
   9   __set_errno (ENOSYS);
  10   return 0.0;
  11 }
  12 weak_alias (__erfl, erfl)
  13
  14 stub_warning (erfl)
  15
  16 long double
  17 __erfcl (long double x)
  18 {
  19   fputs ("__erfcl not implemented\n", stderr);
  20   __set_errno (ENOSYS);
  21   return 0.0;
  22 }
  23 weak_alias (__erfcl, erfcl)
  24
  25 stub_warning (erfcl)
  26 #include <stub-tag.h>