MODULE testchr ;

CONST
   foo = ORD (CHR (c)) ;

VAR
   c: CARDINAL ;
BEGIN

END testchr.