1# Copyright (C) 2005-2020 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. 20load_lib gcc-dg.exp 21 22# Skip these tests for targets that don't support this extension. 23if { ![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. 29global dg-do-what-default 30set save-dg-do-what-default ${dg-do-what-default} 31if { ![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} 38verbose "dfp.exp: dg-do-what-default is ${dg-do-what-default}" 2 39 40global DEFAULT_CFLAGS 41if [info exists DEFAULT_CFLAGS] then { 42 set save_default_cflags $DEFAULT_CFLAGS 43} 44 45# If a testcase doesn't have special options, use these. 46set DEFAULT_CFLAGS "-std=gnu99" 47 48# Initialize `dg'. 49dg-init 50 51# Main loop; run the C-only tests. 52dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] \ 53 "" $DEFAULT_CFLAGS 54# Run the tests that are shared with C++ testing. 55dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/dfp/*c]] \ 56 "" $DEFAULT_CFLAGS 57 58# All done. 59dg-finish 60 61set dg-do-what-default ${save-dg-do-what-default} 62verbose "dfp.exp: dg-do-what-default is ${dg-do-what-default}" 2 63if [info exists save_default_cflags] { 64 set DEFAULT_CFLAGS $save_default_cflags 65} 66