diff options
Diffstat (limited to 'src/math/fmod.c')
| -rw-r--r-- | src/math/fmod.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/math/fmod.c b/src/math/fmod.c index d8254d40..4370830f 100644 --- a/src/math/fmod.c +++ b/src/math/fmod.c @@ -2,10 +2,27 @@ #include <math.h> #include "_tgmath.h" #include "errno.h" +#include "fenv.h" /** floating-point remainder **/ TYPE TGFN(fmod)(TYPE x, TYPE y) { + int classx = fpclassify(x); + int classy = fpclassify(y); + + if (classx == FP_ZERO && classy != FP_ZERO) { + return x; + } + + if (classx == FP_INFINITE && classy == FP_ZERO) { + feraiseexcept(FE_INVALID); + return NAN; + } + + if (classx != FP_INFINITE && classy == FP_INFINITE) { + return x; + } + if (y == 0) { return 0; } |
