| # sh testcase for fipr $fvm, $fvn | |
| # mach: all | |
| # as: -isa=shcompact | |
| # ld: -m shelf32 | |
| .include "compact/testutils.inc" | |
| start | |
| initv1: | |
| fldi1 fr0 | |
| # Load 2 into fr2. | |
| fldi1 fr1 | |
| fadd fr1, fr1 | |
| # Load 4 into fr2. | |
| fldi1 fr2 | |
| fadd fr2, fr2 | |
| fadd fr2, fr2 | |
| fldi0 fr3 | |
| initv2: | |
| fldi1 fr8 | |
| fldi0 fr9 | |
| fldi1 fr10 | |
| fldi0 fr11 | |
| fipr fv0, fv8 | |
| # Result will be in fr11. | |
| fldi1 fr0 | |
| fldi1 fr1 | |
| # Two. | |
| fadd fr1, fr0 | |
| # Four. | |
| fadd fr0, fr0 | |
| # Five. | |
| fadd fr1, fr0 | |
| fcmp/eq fr0, fr11 | |
| bf wrong | |
| okay: | |
| pass | |
| wrong: | |
| fail |