path: root/gcc/testsuite/gm2/base-lang/pass/localvarassign.mod

IMPLEMENTATION MODULE localvarassign ;  (*!m2pim*)


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


BEGIN
   foo
END localvarassign.