OSDN Git Service

2006-03-14 Andrew Pinski <pinskia@physics.uc.edu>
[pf3gnuchains/gcc-fork.git] / libgfortran / config / fpu-glibc.h
index 0a6c9df..8b0801a 100644 (file)
@@ -33,14 +33,14 @@ Boston, MA 02110-1301, USA.  */
    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