1 2 3 4 5 6 7 8 9 10
MODULE testfloat ; CONST foo = FLOAT (c) ; VAR c: CARDINAL ; BEGIN END testfloat.