1 2 3 4 5 6 7 8 9 10 11 12
{ %fail } {$Mode ObjFPC}{$H+} procedure A(i: longint); begin end; begin A(false); end.