OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [fsubd.cgs] - Blame information for rev 373

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 330 jeremybenn
# sh testcase for fsub.d $drg, $drh, $drf -*- Asm -*-
2
# mach: all
3
# as: -isa=shmedia
4
# ld: -m shelf64
5
 
6
        .include "media/testutils.inc"
7
 
8
        start
9
 
10
        .global fsubd
11
init:
12
        pta wrong, tr0
13
 
14
fsubd:
15
        movi 9, r0
16
        fmov.qd r0, dr0
17
        float.qd dr0, dr0
18
 
19
        movi 3, r0
20
        fmov.qd r0, dr2
21
        float.qd dr2, dr2
22
 
23
        fsub.d dr0, dr2, dr4
24
 
25
        movi 6, r0
26
        fmov.qd r0, dr6
27
        float.qd dr6, dr6
28
 
29
        fcmpeq.d dr4, dr6, r7
30
        bnei r7, 1, tr0
31
 
32
okay:
33
        pass
34
 
35
wrong:
36
        fail

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.