1 # Copyright
(C
) 2005, 2006, 2007 Free Software Foundation
, Inc.
3 # This
program is free software
; you can redistribute it and
/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation
; either version
3 of the License
, or
6 #
(at your option
) any later version.
8 # This
program is distributed in the hope that it will be useful
,
9 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License
for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with GCC
; see the file COPYING3.
If not see
15 #
<http
://www.gnu.org
/licenses
/>.
17 # GCC testsuite that uses the `dg.exp
' driver.
22 # Skip these tests for targets that don't support this extension.
23 if { ![check_effective_target_dfp
] } {
27 #
If the decimal float is supported in the compiler but not yet in the
28 # runtime
, treat all tests as
compile-only.
29 global dg
-do-what
-default
30 set save
-dg
-do-what
-default $
{dg
-do-what
-default
}
31 if { ![check_effective_target_dfprt
] } {
32 verbose
"dfp.exp: runtime support for decimal float does not exist" 2
33 set dg
-do-what
-default
compile
35 verbose
"dfp.exp: runtime support for decimal float exists, use it" 2
36 set dg
-do-what
-default run
38 verbose
"dfp.exp: dg-do-what-default is ${dg-do-what-default}" 2
40 #
If a testcase doesn
't have special options, use these.
42 if ![info exists DEFAULT_CFLAGS] then {
43 set DEFAULT_CFLAGS " -ansi -pedantic-errors"
50 dg
-runtest
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.\
[cS\
]]] \
56 set dg
-do-what
-default $
{save
-dg
-do-what
-default
}
57 verbose
"dfp.exp: dg-do-what-default is ${dg-do-what-default}" 2