1# Copyright (C) 2007-2014 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# Exit immediately if this isn't a s390 target. 20if ![istarget s390*-*-*] then { 21 return 22} 23 24# Load support procs. 25load_lib gcc-dg.exp 26 27# Return 1 if htm (etnd - extract nesting depth) instructions are 28# understood by the assembler and can be executed. 29proc check_effective_target_htm { } { 30 if { ![check_runtime s390_check_htm [subst { 31 int main (void) 32 { 33 unsigned int nd; 34 asm ("etnd %0" : "=d" (nd)); 35 return nd; 36 } 37 }] "-march=zEC12 -mzarch" ] } { return 0 } else { return 1 } 38} 39 40# If a testcase doesn't have special options, use these. 41global DEFAULT_CFLAGS 42if ![info exists DEFAULT_CFLAGS] then { 43 set DEFAULT_CFLAGS " -ansi -pedantic-errors" 44} 45 46# Initialize `dg'. 47dg-init 48 49# Main loop. 50dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] \ 51 "" $DEFAULT_CFLAGS 52 53# All done. 54dg-finish 55