1# Tests for the xstormy16 2 3if {![istarget xstormy16-*-*]} { 4 return 0 5} 6 7load_lib gcc-dg.exp 8 9# Initialize `dg'. 10dg-init 11 12# Assemble the below100.S file which contains 13# support code for the rest of the tests. 14set old-dg-do-what-default "${dg-do-what-default}" 15set dg-do-what-default assemble 16dg-test -keep-output "$srcdir/$subdir/below100.S" "" "" 17set dg-do-what-default run 18 19 20# Main loop. 21foreach testcase [lsort [find $srcdir/$subdir *.c]] { 22 global test_counts 23 24 set base "[file rootname [file tail $testcase]]" 25 26 if ![runtest_file_p $runtests $testcase] { 27 continue 28 } 29 30 set fails_before $test_counts(FAIL,count) 31 dg-test $testcase "--save-temps -fno-inline-functions -L$srcdir/$subdir" "" 32 set fails_after $test_counts(FAIL,count) 33 34 if { $fails_before == $fails_after } { 35 catch "exec rm -f $base.i $base.s $base.o" 36 } 37} 38 39set dg-do-what-default "${old-dg-do-what-default}" 40 41# All done. 42dg-finish 43