1# mach: bfin
2
3.include "testutils.inc"
4	start
5
6
7	R0.L = 0.5;
8	R0.H = 0.5;
9	R1.L = 0.5;
10	R1.H = 0.5;
11
12	R2 = R0 +|+ R1, R3 = R0 -|- R1 (S , ASR);
13	_DBGCMPLX R2;
14	_DBGCMPLX R3;
15
16	DBGA ( R2.L , 0.5 );
17	DBGA ( R2.H , 0.5 );
18	DBGA ( R3.L , 0 );
19	DBGA ( R3.H , 0 );
20
21	R1.L = 0.125;
22	R1.H = 0.125;
23
24	R2 = R0 +|+ R1, R3 = R0 -|- R1 (S , ASR);
25	_DBGCMPLX R2;
26	_DBGCMPLX R3;
27	DBGA ( R2.L , 0.3125 );
28	DBGA ( R2.H , 0.3125 );
29	DBGA ( R3.L , 0.1875 );
30	DBGA ( R3.H , 0.1875 );
31
32	R0 = R2 +|+ R3, R1 = R2 -|- R3 (S , ASR);
33	_DBGCMPLX R0;
34	_DBGCMPLX R1;
35	DBGA ( R0.L , 0.25 );
36	DBGA ( R0.H , 0.25 );
37	DBGA ( R1.L , 0.0625 );
38	DBGA ( R1.H , 0.0625 );
39
40	R0 = 1;
41	R0 <<= 15;
42	R1 = R0 << 16;
43	r0=r0 | r1;
44	R1 = R0;
45
46	R2 = R0 +|+ R1, R3 = R0 -|- R1 (S , ASR);
47
48	_DBGCMPLX R2;
49	_DBGCMPLX R3;
50	DBGA ( R0.L , 0x8000 );
51	DBGA ( R0.H , 0x8000 );
52	DBGA ( R1.L , 0x8000 );
53	DBGA ( R1.H , 0x8000 );
54
55	pass
56