1 2 3 4 5 6 7 8 9 10 11
{ %fail } program main; {$ifdef FPC}{$mode objfpc}{$h+}{$endif} uses bugunit; begin proc( 1, 2 ); // no error with -B compiler flag end.