1# Copyright (C) 2004-2015 Free Software Foundation, Inc. 2# 3# This file is part of GCC. 4# 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) 8# any later version. 9# 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. 14# 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/>. 18 19# The name of each test starts with the architecture it requires. Tests that 20# work on all variants start with "all". 21 22if {![istarget frv-*-*]} { 23 return 0 24} 25 26load_lib gcc-dg.exp 27 28# Find out which architecture is used by default. 29set mainarch "fr500" 30foreach flag [target_info multilib_flags] { 31 regexp "^-mcpu=(.*)" $flag dummy mainarch 32 if {$flag == "-mno-pack"} { 33 # -mno-pack disables media intrinsics. 34 return 0 35 } 36} 37 38# Set $archs to "all" plus the list of architectures we can test. 39set archs [list "all" $mainarch] 40switch $mainarch { 41 fr405 { lappend archs fr400 } 42 fr450 { lappend archs fr405 fr400 } 43} 44 45# Set $files to the list of files we can test. 46set files "" 47foreach arch $archs { 48 lappend files [lsort [glob -nocomplain $srcdir/$subdir/${arch}*.c]] 49} 50 51dg-init 52gcc-dg-runtest [eval concat $files] "" "" 53dg-finish 54