MODULE testsize ;

FROM SYSTEM IMPORT SIZE ;

VAR
   c: CARDINAL ;
BEGIN
   c := SIZE (1)
END testsize.