# m32r testcase for sra $dr,$sr
# mach(): m32r m32rx

	.include "testutils.inc"

	start

	.global sra
sra:

	mvi_h_gr  r4, 0xf0f0f0ff
	mvi_h_gr  r5, 4
	sra       r4, r5
	test_h_gr r4, 0xff0f0f0f

	pass