Subversion Repositories openrisc

# frv testcase for fsqrtd $FRj,$FRk
# mach: frv
# as(frv): -mcpu=frv

        .include "testutils.inc"

        double_constants
        start
        load_double_constants

        .global fsqrtd
fsqrtd:
        fsqrtd          fr44,fr2                ; 9.0
        test_dfr_dfr    fr2,fr36                ; 3.0

        set_fr_iimmed   0x4009,0x21fb,fr10      ; 3.141592654
        set_fr_iimmed   0x6000,0x0000,fr11
        fsqrtd          fr10,fr10
        test_fr_iimmed  0x3ffc5bf8,fr10         ; 1.7724539
        test_fr_iimmed  0x9853a94d,fr11

        pass