xref: /netbsd-src/external/gpl3/gdb/dist/sim/testsuite/m32r/sra.cgs (revision 4b169a6ba595ae283ca507b26b15fdff40495b1c)
1*4b169a6bSchristos# m32r testcase for sra $dr,$sr
2*4b169a6bSchristos# mach(): m32r m32rx
3*4b169a6bSchristos
4*4b169a6bSchristos	.include "testutils.inc"
5*4b169a6bSchristos
6*4b169a6bSchristos	start
7*4b169a6bSchristos
8*4b169a6bSchristos	.global sra
9*4b169a6bSchristossra:
10*4b169a6bSchristos
11*4b169a6bSchristos	mvi_h_gr  r4, 0xf0f0f0ff
12*4b169a6bSchristos	mvi_h_gr  r5, 4
13*4b169a6bSchristos	sra       r4, r5
14*4b169a6bSchristos	test_h_gr r4, 0xff0f0f0f
15*4b169a6bSchristos
16*4b169a6bSchristos	pass
17