1 2 3 4 5 6 7 8 9 10 11 12 13
{ %fail } {$mode objfpc} procedure test(var x: longint = 0); begin end; var l: longint; begin test(l); end.