freepascal.compiler/tests/tbf0203.pp

program tbf0203;

uses 
{$ifdef go32v2}
  dpmiexcp,
{$endif def go32v2}
  tbf0203a;

begin
   c;
   a;
end.