1 # Copyright
(C
) 2013 Free Software Foundation
, Inc.
3 # This file is part of GCC.
5 # GCC is free software
; you can redistribute it and
/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation
; either version
3, or
(at your option
)
10 # GCC is distributed in the hope that it will be useful
,
11 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License
for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with GCC
; see the file COPYING3.
If not see
17 #
<http
://www.gnu.org
/licenses
/>.
19 # GCC testsuite that uses the `dg.exp
' driver.
22 load_lib gfortran-dg.exp
23 load_lib target-supports.exp
28 # Flags specified in each test
30 if ![info exists DEFAULT_FFLAGS
] then {
34 # Flags
for finding the IEEE modules
35 if [info exists TOOL_OPTIONS
] {
36 set specpath
[get_multilibs $
{TOOL_OPTIONS
}]
38 set specpath
[get_multilibs
]
40 set options
"-fintrinsic-modules-path $specpath/libgfortran/"
42 # Bail out
if IEEE tests are not supported at all
43 if ![check_effective_target_fortran_ieee $options
] {
47 # Add target
-independent options to require IEEE compatibility
48 set options
"$DEFAULT_FFLAGS $options -fno-unsafe-math-optimizations -frounding-math -fsignaling-nans"
50 # Add target
-specific options to require IEEE compatibility
51 set target_options
[add_options_for_ieee
""]
52 set options
"$options $target_options"
55 gfortran
-dg
-runtest
[lsort \
56 [find $srcdir
/$subdir
*.\
[fF\
]{,90,95,03,08} ] ] $options