Subversion Repositories scarts

# frv parallel testcase for call $label24
# mach: fr500 fr550 frv

        .include "testutils.inc"

        start

        .global call
call:
        set_spr_immed   0,lr
        call            ok1
bad1:
        fail
ok1:
        test_spr_addr   bad1,lr

        set_spr_immed   0,lr
        setlos.p        0,gr5
        call.p          ok2
        bra             bad3
bad2:
        setlos          5,gr5
        fail
bad3:
        fail
ok2:
        test_spr_addr   bad2,lr
        test_gr_immed   0,gr5

        pass