MODULE testtrunc ;

CONST
   foo = TRUNC (r) ;

VAR
   r: REAL ;
BEGIN

END testtrunc.