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