TP3/shell/tests/fixtures/t39_strvar.pas

program t39;
var
  s : string [10];

procedure p;
var
  t : string [5];
begin
  t := 'loc';
  writeln (t)
end;

begin
  s := 'hello';
  writeln (s);
  p;
  s := '';
  write (s);
  writeln ('done');
  s := 'world';
  write (s);
  writeln
end.