# 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 |