Subversion Repositories openrisc_me

# sh testcase for shal $rn -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32

        .include "compact/testutils.inc"

        start

        .global shal
shal:
        mov #1, r1
        shal r1
        assert r1, #2
        shal r1
        assert r1, #4
        shal r1
        assert r1, #8
        shal r1
        assert r1, #16
        shal r1
        assert r1, #32
        shal r1
        assert r1, #64
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        shal r1
        assert r1, #0

okay:   
        pass
wrong:
        fail