MODULE testord ;

CONST
   foo = ORD (ch) ;

VAR
   ch: CHAR ;
BEGIN

END testord.