MODULE testfloat ;

CONST
   foo = FLOAT (c) ;

VAR
   c: CARDINAL ;
BEGIN

END testfloat.