Re: Newly failing fortran compilations in test-suite.

[Richard Henderson <rth at redhat dot com>]

Try this.


r~



Index: gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x,v
retrieving revision 1.1
diff -c -p -d -u -r1.1 intrinsic_fraction_exponent.x
--- gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x	30 Aug 2004 12:13:36 -0000	1.1
+++ gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x	11 Sep 2004 18:50:24 -0000
@@ -1,2 +1,2 @@
-lappend additional_flags [ieee-options]
+add-ieee-options
 return 0
Index: gfortran.fortran-torture/execute/intrinsic_nearest.x
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.x,v
retrieving revision 1.1
diff -c -p -d -u -r1.1 intrinsic_nearest.x
--- gfortran.fortran-torture/execute/intrinsic_nearest.x	30 Aug 2004 12:13:36 -0000	1.1
+++ gfortran.fortran-torture/execute/intrinsic_nearest.x	11 Sep 2004 18:50:24 -0000
@@ -1,2 +1,2 @@
-lappend additional_flags [ieee-options]
+add-ieee-options
 return 0
Index: gfortran.fortran-torture/execute/intrinsic_set_exponent.x
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.x,v
retrieving revision 1.1
diff -c -p -d -u -r1.1 intrinsic_set_exponent.x
--- gfortran.fortran-torture/execute/intrinsic_set_exponent.x	30 Aug 2004 12:13:36 -0000	1.1
+++ gfortran.fortran-torture/execute/intrinsic_set_exponent.x	11 Sep 2004 18:50:24 -0000
@@ -1,2 +1,2 @@
-lappend additional_flags [ieee-options]
+add-ieee-options
 return 0
Index: gfortran.fortran-torture/execute/nan_inf_fmt.x
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.x,v
retrieving revision 1.1
diff -c -p -d -u -r1.1 nan_inf_fmt.x
--- gfortran.fortran-torture/execute/nan_inf_fmt.x	30 Aug 2004 12:13:36 -0000	1.1
+++ gfortran.fortran-torture/execute/nan_inf_fmt.x	11 Sep 2004 18:50:24 -0000
@@ -1,2 +1,2 @@
-lappend additional_flags [ieee-options]
+add-ieee-options
 return 0
Index: lib/fortran-torture.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/fortran-torture.exp,v
retrieving revision 1.5
diff -c -p -d -u -r1.5 fortran-torture.exp
--- lib/fortran-torture.exp	30 Aug 2004 12:13:37 -0000	1.5
+++ lib/fortran-torture.exp	11 Sep 2004 18:50:24 -0000
@@ -346,20 +346,18 @@ proc fortran-torture { args } {
 }
 
 #
-# ieee-options -- return options necessary for 100% ieee conformance.
+# add-ieee-options -- add options necessary for 100% ieee conformance.
 #
-proc ieee-options { } {
+proc add-ieee-options { } {
     # Ensure that excess precision does not cause problems.
-    if [istarget "i?86-*-*"] then {
-      return "-ffloat-store"
-    }
-    if [istarget "m68k-*-*"] then {
-      return "-ffloat-store"
+    if { [istarget "i?86-*-*"]
+	 || [istarget "m68k-*-*"] } then {
+      uplevel 1 lappend additional_flags "-ffloat-store"
     }
-                                                                                
+
     # Enable full IEEE compliance mode.
     if { [istarget "alpha*-*-*"]
          || [istarget "sh*-*-*"] } then {
-      return "-mieee"
+      uplevel 1 lappend additional_flags "-mieee"
     }
 }