TP3/shell/tests/fixtures/t27_localvar.pas

program t27;
var
  g : integer ;
procedure work ;
var
  v1 : integer ;
  v2 : integer ;
  v3 : integer ;
  v4 : integer ;
  v5 : integer ;
begin
  v1 := 10 ;
  v2 := 20 ;
  v3 := 30 ;
  v4 := 40 ;
  v5 := 50 ;
  g := v1 + v2 + v3 + v4 + v5
end ;
begin
  work
end.