1//Original:/testcases/core/c_calla_subr/c_calla_subr.dsp
2// Spec Reference: progctrl calla subr
3# mach: bfin
4
5.include "testutils.inc"
6	start
7
8
9INIT_R_REGS 0;
10
11CALL SUBR;
12
13CHECKREG r0, 0x00000000;
14CHECKREG r1, 0x00001111;
15CHECKREG r2, 0x00000000;
16CHECKREG r3, 0x00000000;
17CHECKREG r4, 0x00000000;
18CHECKREG r5, 0x00000000;
19CHECKREG r6, 0x00000000;
20CHECKREG r7, 0x00000000;
21
22pass
23
24SUBR:				// should jump here
25	R1.L = 0x1111;
26	RTS;
27	R2.L = 0x2222;		// should not go here
28	RTS;
29