OSDN Git Service

* g++.dg/dfp/dfp.exp: Run tests from c-c++-common/dfp.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / g++.dg / dfp / dfp.exp
1 # Copyright (C) 2005, 2006, 2007, 2009 Free Software Foundation, Inc.
2
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.
7
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.
12
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/>.
16
17 # GCC testsuite that uses the `dg.exp' driver.
18
19 # Load support procs.
20 load_lib g++-dg.exp
21
22 # Skip these tests for targets that don't support this extension.
23 if { ![check_effective_target_dfp] } {
24     return;
25 }
26
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
34 } else {
35     verbose "dfp.exp: runtime support for decimal float exists, use it" 2
36     set dg-do-what-default run
37 }
38 verbose "dfp.exp: dg-do-what-default is ${dg-do-what-default}" 2
39
40 global DEFAULT_CXXFLAGS
41 if [info exists DEFAULT_CXXFLAGS] then {
42   set save_default_cxxflags $DEFAULT_CXXFLAGS
43 }
44
45 # If a testcase doesn't have special options, use these.
46 set DEFAULT_CXXFLAGS ""
47
48 # Initialize `dg'.
49 dg-init
50
51 # Main loop.  Run the tests that are specific to C++.
52 dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[C]] \
53         "" $DEFAULT_CXXFLAGS
54 # Run tests that are shared with C testing.
55 dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/dfp/*.c]] \
56         "" $DEFAULT_CXXFLAGS
57
58 # All done.
59 dg-finish
60
61 set dg-do-what-default ${save-dg-do-what-default}
62 verbose "dfp.exp: dg-do-what-default is ${dg-do-what-default}" 2
63 if [info exists save_default_cxxflags] {
64   set DEFAULT_CXXFLAGS $save_default_cxxflags
65 }