# cr16 testcase for jal $sr
# mach(): cr16

	.include "testutils.inc"

	start

	.global jal
jal:
	movd $ok1, (r5, r4)
	lshd $-1, (r5,r4)
	jal (ra), (r5,r4)
not_ok:
	fail
ok1:
	movd $not_ok, (r7, r6)
	lshd $-1, (r7,r6)
	cmpd (r7,r6), (ra)
	beq ok2
	br not_ok
ok2:
	movd $ok3, (r5, r4)
	lshd $-1, (r5,r4)
	jal (r1,r0), (r5,r4)
not_ok1:
	br not_ok
ok3:
	movd $not_ok1, (r7, r6)
	lshd $-1, (r7,r6)
	cmpd (r7,r6), (r1,r0)
	beq ok4
        br not_ok
ok4:

	pass