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 " ........ +.single" { fail $testname; set x 1 }
  12             -re "\[^\n\]*\n" { }
  13             timeout { error "timeout\n"; break }
  14             eof { break }
  15         }
  16     }
  17     gas_finish
  18     if !$x then { fail "$testname (listing didn't match)" }
  19 }
  20
  21 dotest