IMPLEMENTATION MODULE localvarassign ;  (*!m2pim*)


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


BEGIN
   foo
END localvarassign.