MODULE testval ;

CONST
   foo = VAL (INTEGER, c) ;

VAR
   c: CARDINAL ;
BEGIN

END testval.