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

   1 # sh testcase for fcnvsd -*- Asm -*-
   2 # mach: all
   3 # as: -isa=shcompact
   4 # ld: -m shelf32
   5
   6         .include "compact/testutils.inc"
   7
   8         start
   9         fldi1 fr0
  10         flds fr0, fpul
  11         _setpr
  12         fcnvsd fpul, dr2
  13         _clrpr
  14
  15         # Convert back.
  16         _setpr
  17         fcnvds dr2, fpul
  18         _clrpr
  19         fsts fpul, fr1
  20         fcmp/eq fr0, fr1
  21         bf wrong
  22
  23 okay:
  24         pass
  25
  26 wrong:
  27         fail