1 # Copyright
(C
) 2004-2018 Free Software Foundation
, Inc.
3 # This file is part of GCC.
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
)
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.
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
/>.
19 # Tests
for the xstormy16
21 if {![istarget xstormy16
-*-*]} {
30 # Assemble the below100.S file which contains
31 # support code for the rest of the tests.
32 set old-dg-do-what-default "${dg-do-what-default}"
33 set dg-do-what-default assemble
34 dg-test -keep-output "$srcdir/$subdir/below100.S" "" ""
35 set dg-do-what-default run
39 foreach testcase [lsort [find $srcdir/$subdir *.c]] {
42 set base "[file rootname [file tail $testcase]]"
44 if ![runtest_file_p $runtests $testcase] {
48 set fails_before $test_counts(FAIL,count)
49 dg-test $testcase "--save-temps -fno-inline-functions -L$srcdir/$subdir" ""
50 set fails_after $test_counts(FAIL,count)
52 if { $fails_before == $fails_after } {
53 catch "exec rm -f $base.i $base.s $base.o"
57 set dg-do-what-default "${old-dg-do-what-default}"