MODULE testchr2 ;

CONST
   foo = CHR (c) ;

VAR
   c: CARDINAL ;
BEGIN

END testchr2.