13 if (c
.ne
. (3.0, 4.0)) call abort
17 if (z
.ne
. (4.0, 3.0)) call abort
19 if (z
.ne
. (3.0, 4.0)) call abort
25 if (z
.ne
. (3.0, 4.0)) call abort
27 ! conjucates and aimag
31 if (abs (c
- (1.0, -2.0)) .gt
. 0.001) call abort
32 if (x
.ne
. -2.0) call abort
36 if (z
.ne
. (2.0, -1.0)) call abort
37 if (q
.ne
. -1.0) call abort
39 ! addition, subtraction and multiplication
42 if (c
+ d
.ne
. ( 6, 5)) call abort
43 if (c
- d
.ne
. (-4, 1)) call abort
44 if (c
* d
.ne
. (-1, 17)) call abort
46 ! test for constant folding
47 if ((35.,-10.)**0.NE
.(1.,0.)) call abort