tests/test/twrstr1.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %fail }

{ from GPC testsuite }

program fjf569i;

procedure foo (const a: String);
begin
  WriteStr (a, '')  { WRONG }
end;

begin
  WriteLn ('')
end.