begin "arrbug"
  procedure test;
  begin
     integer array foobar[1:20];
     if true then
        begin
           integer x;
           begin
              integer array y[1:2];
              return;
           end;
        end;
  end;
  while true do
     test;
end "arrbug"