fpcsrc/tests/webtbs/tw2260.pp


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

{ %version=1.1 }

{$mode delphi}

procedure test(x: integer = 2);
begin
 writeln(x);
end;

begin
 test(1);
 test;
end.