utilsrc/srcX86MAC64/Admin/gdb-7.7.1/sim/testsuite/sim/sh64/compact/float.cgs

   1 # sh testcase for float -*- Asm -*-
   2 # mach: all
   3 # as: -isa=shcompact
   4 # ld: -m shelf32
   5
   6         .include "compact/testutils.inc"
   7
   8         start
   9
  10 pos:
  11         mov #3, r0
  12         lds r0, fpul
  13         float fpul, fr7
  14
  15         # Check the result.
  16         fldi1 fr0
  17         fldi1 fr1
  18         fadd fr0, fr1
  19         fadd fr0, fr1
  20         fcmp/eq fr1, fr7
  21         bf wrong
  22
  23 neg:
  24         mov #3, r0
  25         neg r0, r0
  26         lds r0, fpul
  27         float fpul, fr7
  28
  29         # Check the result.
  30         fldi1 fr0
  31         fldi1 fr1
  32         fadd fr0, fr1
  33         fadd fr0, fr1
  34         fneg fr1
  35         fcmp/eq fr1, fr7
  36         bf wrong
  37
  38         bra double
  39         nop
  40
  41 wrong:
  42         fail
  43
  44 double:
  45         mov #3, r0
  46         lds r0, fpul
  47         _setpr
  48         float fpul, dr8
  49         _clrpr
  50         # check the result.
  51         fldi1 fr0
  52         fldi1 fr1
  53         fadd fr0, fr1
  54         fadd fr0, fr1
  55         _s2d fr1, dr2
  56         fcmp/eq dr2, dr8
  57         bf wrong
  58
  59 dneg:
  60         mov #3, r0
  61         neg r0, r0
  62         lds r0, fpul
  63         _setpr
  64         float fpul, dr8
  65         _clrpr
  66         # check the result.
  67         fldi1 fr0
  68         fldi1 fr1
  69         fadd fr0, fr1
  70         fadd fr0, fr1
  71         fneg fr1
  72         _s2d fr1, dr2
  73         fcmp/eq dr2, dr8
  74         bf wrong
  75
  76 okay:
  77         pass
  78
  79 wrong2:
  80         fail