freepascal.compiler/tests/test/tlibrary.pp

{ %NORUN }

{$ifdef win32}
 {$define supported}
 {$define supportidx}
{$endif win32}
{$ifdef linux}
 {$define supported}
{$endif linux}

{$ifdef supported}

library bug;

const
   publicname='TestName';
   publicindex = 1234;

procedure Test;export;

 begin
 end;

exports
  Test name publicname;
{$ifdef supportidx}
exports
  Test index publicindex;
{$endif}

begin
end.
{$else supported}
begin
  Writeln('No library for that target');
end.
{$endif supported}