1# frv testcase for sra $GRi,$GRj,$GRk
2# mach: all
3
4	.include "testutils.inc"
5
6	start
7
8	.global sra
9sra:
10	set_gr_limmed   0xdead,0xbee0,gr7	; Shift by 0
11	set_gr_limmed   0x8000,0x0000,gr8
12	set_icc         0x05,0		; Set mask opposite of expected
13	sra      	gr8,gr7,gr8
14	test_icc	0 1 0 1 icc0
15	test_gr_limmed 	0x8000,0x0000,gr8
16
17	set_gr_limmed   0xdead,0xbee1,gr7	; Shift by 1
18	set_gr_limmed   0x8000,0x0000,gr8
19	set_icc         0x0f,0		; Set mask opposite of expected
20	sra      	gr8,gr7,gr8
21	test_icc	1 1 1 1 icc0
22	test_gr_limmed 	0xc000,0x0000,gr8
23
24	set_gr_limmed   0xdead,0xbeff,gr7	; Shift by 31
25	set_gr_limmed   0x8000,0x0000,gr8
26	set_icc         0x0f,0		; Set mask opposite of expected
27	sra      	gr8,gr7,gr8
28	test_icc	1 1 1 1 icc0
29	test_gr_immed  	-1,gr8
30
31	set_gr_limmed   0xdead,0xbeff,gr7	; clear register
32	set_gr_limmed   0x4000,0x0000,gr8
33	set_icc         0x0a,0		; Set mask opposite of expected
34	sra      	gr8,gr7,gr8
35	test_icc	1 0 1 0 icc0
36	test_gr_immed  	0x00000000,gr8
37
38	pass
39