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

	.include "testutils.inc"

	start

	.global srl
srl:
	mvi_h_gr  r4, 6
	mvi_h_gr  r5, 1
	srl       r4, r5
	test_h_gr r4, 3

	pass