1# frv testcase for cfsqrts $FRj,$FRk,$CCi,$cond
2# mach: fr500 fr550 frv
3
4	.include "testutils.inc"
5
6	float_constants
7	start
8	load_float_constants
9
10	.global cfsqrts
11cfsqrts:
12	set_spr_immed	0x1b1b,cccr
13
14	cfsqrts		fr44,fr1,cc0,1		; 9.0
15	test_fr_fr	fr1,fr36		; 3.0
16
17	set_fr_iimmed	0x4049,0x0fdb,fr10	; 3.141592654
18	cfsqrts		fr10,fr10,cc4,1
19	test_fr_iimmed	0x3fe2dfc5,fr10		; 1.7724539
20
21	cfsqrts		fr44,fr1,cc1,0		; 9.0
22	test_fr_fr	fr1,fr36		; 3.0
23
24	set_fr_iimmed	0x4049,0x0fdb,fr10	; 3.141592654
25	cfsqrts		fr10,fr10,cc5,0
26	test_fr_iimmed	0x3fe2dfc5,fr10		; 1.7724539
27
28	set_fr_fr	fr0,fr1
29	cfsqrts		fr44,fr1,cc0,0		; 9.0
30	test_fr_fr	fr1,fr0
31
32	set_fr_iimmed	0x4049,0x0fdb,fr10	; 3.141592654
33	cfsqrts		fr10,fr10,cc4,0
34	test_fr_iimmed	0x40490fdb,fr10
35
36	set_fr_fr	fr0,fr1
37	cfsqrts		fr44,fr1,cc1,1		; 9.0
38	test_fr_fr	fr1,fr0
39
40	set_fr_iimmed	0x4049,0x0fdb,fr10	; 3.141592654
41	cfsqrts		fr10,fr10,cc5,1
42	test_fr_iimmed	0x40490fdb,fr10
43
44	set_fr_fr	fr0,fr1
45	cfsqrts		fr44,fr1,cc2,0		; 9.0
46	test_fr_fr	fr1,fr0
47
48	set_fr_iimmed	0x4049,0x0fdb,fr10	; 3.141592654
49	cfsqrts		fr10,fr10,cc6,1
50	test_fr_iimmed	0x40490fdb,fr10
51
52	set_fr_fr	fr0,fr1
53	cfsqrts		fr44,fr1,cc3,1		; 9.0
54	test_fr_fr	fr1,fr0
55
56	set_fr_iimmed	0x4049,0x0fdb,fr10	; 3.141592654
57	cfsqrts		fr10,fr10,cc7,0
58	test_fr_iimmed	0x40490fdb,fr10
59
60	pass
61