1 2 3 4 5 6 7 8 9 10
MODULE testcmplx ; CONST foo = CMPLX (r, i) ; VAR r, i: REAL ; BEGIN END testcmplx.