Subversion Repositories scarts

# frv testcase for nfitos $FRj,$FRk
# mach: fr500 fr550 frv

        .include "testutils.inc"

        float_constants
        start
        load_float_constants

        .global nfitos
nfitos:
        set_fr_iimmed   0,0,fr1
        nfitos          fr1,fr1
        test_fr_fr      fr1,fr16
        test_fr_fr      fr1,fr20
        test_spr_immed  0,fner1
        test_spr_immed  0,fner0

        set_fr_iimmed   0x0000,0x0002,fr1
        nfitos          fr1,fr1
        test_fr_fr      fr1,fr32
        test_spr_immed  0,fner1
        test_spr_immed  0,fner0

        set_fr_iimmed   0xdead,0xbeef,fr1
        nfitos          fr1,fr1
        test_fr_iimmed  0xce054904,fr1
        test_spr_immed  0,fner1
        test_spr_immed  0,fner0

        ; These were an attempt to cause overflow
        set_fr_iimmed   0x7fff,0xffff,fr1
        nfitos          fr1,fr1
        test_fr_iimmed  0x4f000000,fr1
        test_spr_immed  0,fner1
        test_spr_immed  0,fner0

        set_fr_iimmed   0x8000,0x0000,fr1
        nfitos          fr1,fr1
        test_fr_iimmed  0xcf000000,fr1
        test_spr_immed  0,fner1
        test_spr_immed  0,fner0

        pass