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

	.include "compact/testutils.inc"

	start
	# 0.0 - 0.0 = 0.0.
	fldi0 fr0
	fldi0 fr1
	fsub fr0, fr1
	fldi0 fr2
	fcmp/eq fr1, fr2
	bf wrong

	# 1.0 - 0.0 = 1.0.
	fldi0 fr0
	fldi1 fr1
	fsub fr0, fr1
	fldi1 fr2
	fcmp/eq fr1, fr2
	bf wrong

	# 1.0 - 1.0 = 0.0.
	fldi1 fr0
	fldi1 fr1
	fsub fr0, fr1
	fldi0 fr2
	fcmp/eq fr1, fr2
	bf wrong

	# 0.0 - 1.0 = -1.0.
	fldi1 fr0
	fldi0 fr1
	fsub fr0, fr1
	fldi1 fr2
	fneg fr2
	fcmp/eq fr1, fr2
	bf wrong

	bra double	
	nop

wrong:
	fail

double:
	# 0.0 - 0.0 = 0.0.
	fldi0 fr0
	fldi0 fr2
	_s2d fr0, dr0
	_s2d fr2, dr2
	_setpr
	fsub dr0, dr2
	_clrpr
	fldi0 fr4
	_s2d fr4, dr4
	_setpr
	fcmp/eq dr2, dr4
	bf wrong
	_clrpr

onezero:	
	# 1.0 - 0.0 = 1.0.
	fldi0 fr0
	fldi1 fr2
	_s2d fr0, dr0
	_s2d fr2, dr2
	_setpr
	fsub dr0, dr2
	_clrpr
	fldi1 fr4
	_s2d fr4, dr4
	_setpr
	fcmp/eq dr2, dr4
	bf wrong2
	_clrpr

oneone:	
	# 1.0 - 1.0 = 0.0.
	fldi1 fr0
	fldi1 fr2
	_s2d fr0, dr0
	_s2d fr2, dr2
	_setpr
	fsub dr0, dr2
	_clrpr
	fldi0 fr4
	_s2d fr4, dr4
	_setpr
	fcmp/eq dr2, dr4
	bf wrong2
	_clrpr

	bra zeroone
	nop

wrong2:
	fail

zeroone:	
	# 0.0 - 1.0 = -1.0.
	fldi1 fr0
	fldi0 fr2
	_s2d fr0, dr0
	_s2d fr2, dr2
	_setpr
	fsub dr0, dr2
	_clrpr
	fldi1 fr4
	fneg fr4
	_s2d fr4, dr4
	_setpr
	fcmp/eq dr2, dr4
	bf wrong2
	_clrpr
		
okay:
	pass