# frv parallel testcase for call $label24
# mach: fr500 fr550 frv

	.include "testutils.inc"

	start

	.global call
call:
	set_spr_immed	0,lr
	call		ok1
bad1:
	fail
ok1:
	test_spr_addr	bad1,lr

	set_spr_immed	0,lr
	setlos.p	0,gr5
	call.p		ok2
	bra		bad3
bad2:
	setlos		5,gr5
	fail
bad3:
	fail
ok2:
	test_spr_addr	bad2,lr
	test_gr_immed	0,gr5

	pass