Commit 84d397af by Richard Henderson Committed by Richard Henderson

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
parent 93330ea1
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.
......
lappend additional_flags [ieee-options]
add-ieee-options
return 0
lappend additional_flags [ieee-options]
add-ieee-options
return 0
lappend additional_flags [ieee-options]
add-ieee-options
return 0
lappend additional_flags [ieee-options]
add-ieee-options
return 0
......@@ -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"
}
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment