MODULE tiny ;


PROCEDURE test ;
VAR
   p: CARDINAL ;
BEGIN
   p := 1
END test ;

BEGIN
   test
END tiny.