X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=libgfortran%2Fconfig%2Ffpu-glibc.h;h=8b0801a96b605ae3938faa3987b4b968105805fe;hb=d0207a4d255dd454db63bb15dc61702a2e049303;hp=0a6c9df1cc1ce34003ee21145e1edb88eddf809d;hpb=8c84a5de8ea015ec2e463b480ec81f03671b1e43;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/libgfortran/config/fpu-glibc.h b/libgfortran/config/fpu-glibc.h
index 0a6c9df1cc1..8b0801a96b6 100644
--- a/libgfortran/config/fpu-glibc.h
+++ b/libgfortran/config/fpu-glibc.h
@@ -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