feenableexcept function in fenv.h to set individual exceptions
(there's nothing to do that in C99). */
-#define __USE_GNU
#ifdef HAVE_FENV_H
#include <fenv.h>
#endif
void set_fpu (void)
{
- fedisableexcept (FE_ALL_EXCEPT);
+ if (FE_ALL_EXCEPT != 0)
+ fedisableexcept (FE_ALL_EXCEPT);
if (options.fpe & GFC_FPE_INVALID)
#ifdef FE_INVALID