# m32r testcase for sth $src1,@($slo16,$src2)
# mach(): m32r m32rx

	.include "testutils.inc"

	start

	.global sth_d
sth_d:
	mvaddr_h_gr r4, data_loc
	mvi_h_gr    r5, 0x123456

	sth r5, @(#8,r4)

	mvaddr_h_gr r4, data_loc2
	ld r4, @r4
	test_h_gr r4, 0x34560000 ; big endian processor

	pass

data_loc:
	.word 0
	.word 0
data_loc2:
	.word 0