mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 13:30:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

fortran-torture.exp (fortran-torture-execute): Honor additional_flags set by alternate driver.

Browse Source 
* lib/fortran-torture.exp (fortran-torture-execute): Honor
        additional_flags set by alternate driver.
        (ieee-options): New procedure.
        * gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x: New.
        * gfortran.fortran-torture/execute/intrinsic_nearest.x: New.
        * gfortran.fortran-torture/execute/intrinsic_set_exponent.x: New.
        * gfortran.fortran-torture/execute/nan_inf_fmt.x: New.

From-SVN: r86761
This commit is contained in:
Richard Henderson 2004-08-30 05:13:37 -07:00 committed by Richard Henderson
parent f25605acef
commit 83010c5a19
6 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,13 @@
2004-08-30 Richard Henderson <rth@redhat.com>
* lib/fortran-torture.exp (fortran-torture-execute): Honor
additional_flags set by alternate driver.
(ieee-options): New procedure.
* gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x: New.
* gfortran.fortran-torture/execute/intrinsic_nearest.x: New.
* gfortran.fortran-torture/execute/intrinsic_set_exponent.x: New.
* gfortran.fortran-torture/execute/nan_inf_fmt.x: New.
2004-08-30 Richard Henderson <rth@redhat.com>
* lib/f-torture.exp: Remove.

2
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x Normal file
View File

@ -0,0 +1,2 @@
lappend additional_flags [ieee-options]
return 0

2
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.x Normal file
View File

@ -0,0 +1,2 @@
lappend additional_flags [ieee-options]
return 0

2
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.x Normal file
View File

@ -0,0 +1,2 @@
lappend additional_flags [ieee-options]
return 0

2
gcc/testsuite/gfortran.fortran-torture/execute/nan_inf_fmt.x Normal file
View File

@ -0,0 +1,2 @@
lappend additional_flags [ieee-options]
return 0

22
gcc/testsuite/lib/fortran-torture.exp
View File

@ -139,6 +139,7 @@ proc fortran-torture-execute { src } {
global TORTURE_OPTIONS
# Check for alternate driver.
set additional_flags "";
if [file exists [file rootname $src].x] {
verbose "Using alternate driver [file rootname [file tail $src]].x" 2
set done_p 0
@ -184,6 +185,9 @@ proc fortran-torture-execute { src } {
set options ""
lappend options "additional_flags=-w $option"
if { $additional_flags != "" } {
lappend options "additional_flags=$additional_flags";
}
set comp_output [gfortran_target_compile "$src" "$executable" executable $options];
# See if we got something bad.
@ -341,3 +345,21 @@ proc fortran-torture { args } {
}
}
#
# ieee-options -- return options necessary for 100% ieee conformance.
#
proc 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"
}
# Enable full IEEE compliance mode.
if { [istarget "alpha*-*-*"]
|| [istarget "sh*-*-*"] } then {
return "-mieee"
}
}