| # sh testcase for shlr $rn -*- Asm -*- | |
| # mach: all | |
| # as: -isa=shcompact | |
| # ld: -m shelf32 | |
| .include "compact/testutils.inc" | |
| start | |
| .global shlr | |
| shlr: | |
| mov #0, r0 | |
| or #192, r0 | |
| shlr r0 | |
| shlr r0 | |
| shlr r0 | |
| shlr r0 | |
| shlr r0 | |
| shlr r0 | |
| # Make sure a bit is shifted into T. | |
| shlr r0 | |
| bf wrong | |
| # Ditto. | |
| shlr r0 | |
| bf wrong | |
| shlr r0 | |
| assert r0, #0 | |
| okay: | |
| pass | |
| wrong: | |
| fail |