1# sh testcase for stc.l gbr, @-$rn -*- Asm -*-
2# mach: all
3# as: -isa=shcompact
4# ld: -m shelf32
5
6	.include "compact/testutils.inc"
7
8	start
9
10	.global stcl_gbr
11stcl_gbr:
12	mov #42, r0
13	ldc r0, gbr
14	mov #40, r0
15	shll8 r0
16	# save address
17	mov r0, r1
18	stc.l gbr, @-r0
19
20	add #4, r0
21	cmp/eq r0, r1
22	bf wrong
23
24okay:
25	pass
26wrong:
27	fail
28