utils/external/fpe.c

0001   #define _GNU_SOURCE
0002     #include <stdio.h>
0003     #include <stdlib.h>
0004     #include <fenv.h>
0005
0006     void enable_exceptions_()
0007     {
0008          int retval;
0009          /* feenableexcept returns the previous exceptions that were  enabled
0010             on success, otherwise it returns -1
0011          */
0012          retval=feenableexcept( FE_DIVBYZERO | FE_INVALID |  FE_OVERFLOW | FE_UNDERFLOW );
0013          if ( retval == -1 )
0014          {
0015              fprintf(stderr, "Warning: call to feenableexcept() failed \n");
0016          }
0017     }
0018
0019     /* This second routine is for Fortran compilers such as g77 and  pathf90
0020        which follow the f2c name mangling style
0021     */
0022     void enable_exceptions__()
0023     {
0024         enable_exceptions_();
0025     }