gnu/dist/gcc4/gcc/testsuite/gcc.target/xstormy16/xstormy16.exp

   1 # Tests for the xstormy16
   2
   3 if {![istarget xstormy16-*-*]} {
   4     return 0
   5 }
   6
   7 load_lib gcc-dg.exp
   8
   9 # Initialize `dg'.
  10 dg-init
  11
  12 # Assemble the below100.S file which contains
  13 # support code for the rest of the tests.
  14 set old-dg-do-what-default "${dg-do-what-default}"
  15 set dg-do-what-default assemble
  16 dg-test -keep-output "$srcdir/$subdir/below100.S" "" ""
  17 set dg-do-what-default run
  18
  19
  20 # Main loop.
  21 foreach 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
  39 set dg-do-what-default "${old-dg-do-what-default}"
  40
  41 # All done.
  42 dg-finish