# sh testcase for ftrc.dl $drgh, $frf -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64

	.include "media/testutils.inc"

	start

	.global ftrcdl
init:
	pta wrong, tr0

ftrcdl:
	movi -9, r0
	fmov.qd r0, dr0
	float.qd dr0, dr0
	ftrc.dl dr0, fr0
	fmov.sl fr0, r1
	bne r0, r1, tr0

okay:
	pass

wrong:
	fail
