diff options
| author | Richard Henderson <rth@redhat.com> | 1999-05-03 07:29:11 +0000 |
|---|---|---|
| committer | Richard Henderson <rth@redhat.com> | 1999-05-03 07:29:11 +0000 |
| commit | 252b5132c753830d5fd56823373aed85f2a0db63 (patch) | |
| tree | 1af963bfd8d3e55167b81def4207f175eaff3a56 /gas/testsuite/gas/ieee-fp/x930509a.exp | |
| download | binutils-gdb-binu_ss_19990502.tar.gz | |
19990502 sourceware importbinu_ss_19990502
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 +} |