gas/testsuite/gas/m68k/all.exp

   1 #
   2 # Some generic m68k tests
   3 #
   4 if [istarget m68*-*-*] then {
   5     gas_test "t2.s" "" "" "cross-section branch"
   6
   7     gas_test "pic1.s" "" "" "PIC generation"
   8
   9     gas_test "disperr.s" "" "" "Incorrect Displacement too long error"
  10
  11     gas_test_error "p2410.s" "" "out-of-range 'bras'"
  12
  13     if [expr [istarget m68*-*-hpux*] || [istarget m68*-*-sun*] \
  14                 || [istarget m68*-*-*aout*] \
  15                 || [istarget m68*-*-coff*] \
  16                 || [istarget m68*-*-vxworks5.1] \
  17                 ] then {
  18         run_dump_test "schwab"
  19     }
  20
  21     run_dump_test operands
  22     run_dump_test cas
  23     run_dump_test bitfield
  24
  25     set testname "68000 operands"
  26     gas_run "operands.s" "-m68000" "2>err.out"
  27     if ![string match "child process exited abnormally" $comp_output] then {
  28         send_log "$comp_output\n"
  29         verbose "$comp_output" 3
  30         fail $testname
  31     } else {
  32         if [regexp_diff "err.out" "$srcdir$subdir/op68000.d"] then {
  33             fail $testname
  34         } else {
  35             pass $testname
  36         }
  37     }
  38 }
  39 if [info exists errorInfo] then {
  40     unset errorInfo
  41     }