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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [fsubs.cgs] - Blame information for rev 227

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

Line No. Rev Author Line
1 227 jeremybenn
# sh testcase for fsub.s $frg, $frh, $frf -*- Asm -*-
2
# mach: all
3
# as: -isa=shmedia
4
# ld: -m shelf64
5
 
6
        .include "media/testutils.inc"
7
 
8
        start
9
 
10
        .global fsubs
11
init:
12
        pta wrong, tr0
13
 
14
fsubs:
15
        movi 9, r0
16
        fmov.ls r0, fr0
17
        float.ls fr0, fr0
18
 
19
        movi 3, r0
20
        fmov.ls r0, fr1
21
        float.ls fr1, fr1
22
 
23
        fsub.s fr0, fr1, fr2
24
 
25
        movi 6, r0
26
        fmov.ls r0, fr3
27
        float.ls fr3, fr3
28
 
29
        fcmpeq.s fr2, fr3, 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.