diff options
Diffstat (limited to 'gas/testsuite/gas/ieee-fp/x930509a.exp')
| -rw-r--r-- | gas/testsuite/gas/ieee-fp/x930509a.exp | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/gas/testsuite/gas/ieee-fp/x930509a.exp b/gas/testsuite/gas/ieee-fp/x930509a.exp new file mode 100644 index 00000000000..d788d2c9e44 --- /dev/null +++ b/gas/testsuite/gas/ieee-fp/x930509a.exp @@ -0,0 +1,25 @@ +# Reported 93/05/09 by Jim Wilson: IEEE single-precision FLT_MIN value gets +# assembled incorrectly. (Off by one ulp.) + +proc dotest {} { + set testname "IEEE FLT_MIN, single-precision" + set x 0 + gas_start "x930509a.s" "-al" + while 1 { + expect { + -re " 00008000\[ \]+.single" { pass $testname; set x 1 } + -re " 00800000\[ \]+.single" { pass $testname; set x 1 } + -re " 0080 0000\[ \]+.single" { pass $testname; set x 1 } + -re " ........ +.single" { fail $testname; set x 1 } + -re "\[^\n\]*\n" { } + timeout { perror "timeout\n"; break } + eof { break } + } + } + gas_finish + if !$x then { fail "$testname (listing didn't match)" } +} + +if ![istarget vax*-*-*] then { + dotest +} |