# frv testcase for mhsetloh $s12,$FRk
# mach: all

	.include "../testutils.inc"

	start

	.global mhsetloh
mhsetloh:
	set_fr_immed	0,fr1
	mhsetloh	0,fr1
	test_fr_iimmed	0,fr1
	mhsetloh	1,fr1
	test_fr_iimmed	0x0000800,fr1 
	mhsetloh	0xf,fr1
	test_fr_iimmed	0x00007800,fr1
	mhsetloh	-16,fr1
	test_fr_iimmed	0x00008000,fr1
	mhsetloh	-1,fr1
	test_fr_iimmed	0x0000f800,fr1

	; Try parallel write to both hi and lo
	mhsetloh.p	1,fr1
	mhsethih	0xf,fr1
	test_fr_iimmed	0x78000800,fr1

	pass