fpc/tests/tbs/tbs0263.pp

{$ifdef linux}
  {$define doit}
{$endif}
{$ifdef win32}
  {$define doit}
{$endif}
{$ifdef doit}
library tbs0263;

{
  The export directive is not necessary anymore in delphi, it's a leftover
  from the 16bit model, just like near and far.
}

procedure testp;
begin
end;

exports
  testp name 'testp';

end.
{$else}
begin
end.
{$endif}