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