re PR libfortran/66458 (Loading libgfortran.so changes the FPU exception flags)

	PR libfortran/66458
	* runtime/main.c (init): Only call set_fpu() if requested by user.

From-SVN: r226725

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 04a2b923f19492f152226fb6d68902b21fba93b6..ffd6cfd3cbfff9a5024a2f79148f643291f8c2e1 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2015-08-07  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR libfortran/66458
+       * runtime/main.c (init): Only call set_fpu() if requested by user.
+
 2015-08-06  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        * runtime/compile_options.c (set_options): Fix typos.

diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c
index 3c66a30fff2e783da1e3f58d0379c929bccba7c1..cb8e518b582913ee59b0d8ff56ce37194ea41b2c 100644 (file)
--- a/libgfortran/runtime/main.c
+++ b/libgfortran/runtime/main.c
@@ -263,7 +263,11 @@ init (void)
   init_variables ();
 
   init_units ();
-  set_fpu ();
+
+  /* If (and only if) the user asked for it, set up the FPU state.  */
+  if (options.fpe != 0)
+    set_fpu ();
+
   init_compile_options ();
 
 #ifdef DEBUG