# sh testcase for float -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32

	.include "compact/testutils.inc"

	start

pos:	
	mov #3, r0
	lds r0, fpul
	float fpul, fr7

	# Check the result.
	fldi1 fr0
	fldi1 fr1
	fadd fr0, fr1
	fadd fr0, fr1
	fcmp/eq fr1, fr7
	bf wrong

neg:	
	mov #3, r0
	neg r0, r0
	lds r0, fpul
	float fpul, fr7

	# Check the result.
	fldi1 fr0
	fldi1 fr1
	fadd fr0, fr1
	fadd fr0, fr1
	fneg fr1
	fcmp/eq fr1, fr7
	bf wrong

	bra double
	nop

wrong:
	fail
	
double:
	mov #3, r0
	lds r0, fpul
	_setpr
	float fpul, dr8
	_clrpr
	# check the result.
	fldi1 fr0
	fldi1 fr1
	fadd fr0, fr1
	fadd fr0, fr1
	_s2d fr1, dr2
	fcmp/eq dr2, dr8
	bf wrong

dneg:
	mov #3, r0
	neg r0, r0
	lds r0, fpul
	_setpr
	float fpul, dr8
	_clrpr
	# check the result.
	fldi1 fr0
	fldi1 fr1
	fadd fr0, fr1
	fadd fr0, fr1
	fneg fr1
	_s2d fr1, dr2
	fcmp/eq dr2, dr8
	bf wrong	

okay:
	pass

wrong2:
	fail