fortran-torture.exp (add-ieee-options): Replace ieee-options; do the uplevel…

fortran-torture.exp (add-ieee-options): Replace ieee-options; do the uplevel thing and update additional_flags directly.

        * lib/fortran-torture.exp (add-ieee-options): Replace ieee-options;
        do the uplevel thing and update additional_flags directly.
        * gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x,
        gfortran.fortran-torture/execute/intrinsic_nearest.x,
        gfortran.fortran-torture/execute/intrinsic_set_exponent.x,
        gfortran.fortran-torture/execute/nan_inf_fmt.x: Update to match.

From-SVN: r87399

gcc/testsuite/ChangeLog

+2004-09-12  Richard Henderson  <rth@redhat.com>
+
+	* lib/fortran-torture.exp (add-ieee-options): Replace ieee-options;
+	do the uplevel thing and update additional_flags directly.
+	* gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x,
+	gfortran.fortran-torture/execute/intrinsic_nearest.x,
+	gfortran.fortran-torture/execute/intrinsic_set_exponent.x,
+	gfortran.fortran-torture/execute/nan_inf_fmt.x: Update to match.
+
 2004-09-11  Steven Bosscher  <stevenb@suse.de>
 
 	* g++.dg/parse/break-in-for.C: Fix for -ansi -pedantic-errors.

gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x

-lappend additional_flags [ieee-options]
+add-ieee-options
 return 0

gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.x

-lappend additional_flags [ieee-options]
+add-ieee-options
 return 0

gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.x

-lappend additional_flags [ieee-options]
+add-ieee-options
 return 0

gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.x

-lappend additional_flags [ieee-options]
+add-ieee-options
 return 0

gcc/testsuite/lib/fortran-torture.exp

@@ -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 "i?86-*-*"]
+	 || [istarget "m68k-*-*"] } then {
+      uplevel 1 lappend additional_flags "-ffloat-store"
     }
-    if [istarget "m68k-*-*"] then {
-      return "-ffloat-store"
-    }
-                                                                                
+
     # Enable full IEEE compliance mode.
     if { [istarget "alpha*-*-*"]
          || [istarget "sh*-*-*"] } then {
-      return "-mieee"
+      uplevel 1 lappend additional_flags "-mieee"
     }
 }