fpcsrc/tests/tbs/tb0159.pp


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

{ Old file: tbs0190.pp }
{ can't have typecast for var params ??                 OK 0.99.11 (PM) }

procedure a(var b: boolean);
begin
  b:=true;
end;

var C: byte;

begin
  a(boolean(c));
end.