IMPLEMENTATION MODULE localvar ;  (*!m2pim*)

PROCEDURE foo ;
VAR
   i: INTEGER ;
BEGIN
END foo ;

BEGIN
   foo
END localvar.