MODULE testcap ;

CONST
   foo = CAP (ch) ;

VAR
   ch: CHAR ;
BEGIN

END testcap.