MODULE testint ;

CONST
   foo = INT (r) ;

VAR
   r: REAL ;
BEGIN

END testint.