fpcsrc/tests/tbs/tb0047.pp


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

{ Old file: tbs0053.pp }
{  shows a problem with open arrays                     OK 0.99.1 (FK) }

procedure abc(var a : array of char);

  begin
     // error: a:='asdf';
  end;

var
   c : array[0..10] of char;

begin
   abc(c);
   writeln(c);
   // error: writeln(a);
end.