gas/testsuite/gas/ieee-fp/x930509a.exp

   1 # Reported 93/05/09 by Jim Wilson: IEEE single-precision FLT_MIN value gets
   2 # assembled incorrectly.  (Off by one ulp.)
   3
   4 proc dotest {} {
   5     set testname "IEEE FLT_MIN, single-precision"
   6     set x 0
   7     gas_start "x930509a.s" "-al"
   8     while 1 {
   9         expect {
  10             -re " 00008000\[    \]+.single" { pass $testname; set x 1 }
  11             -re " 00800000\[    \]+.single" { pass $testname; set x 1 }
  12             -re " 0080 0000\[   \]+.single" { pass $testname; set x 1 }
  13             -re " ........ +.single" { fail $testname; set x 1 }
  14             -re "\[^\n\]*\n" { }
  15             timeout { perror "timeout\n"; break }
  16             eof { break }
  17         }
  18     }
  19     gas_finish
  20     if !$x then { fail "$testname (listing didn't match)" }
  21 }
  22
  23 if ![istarget vax*-*-*] then {
  24     dotest
  25 }