MODULE constvar ;

VAR
   a: CARDINAL ;

CONST
   b = a ;

END constvar.