freepascal.compiler/tests/tbs/tb0304.pp

{$ifdef win32}
library test;

  procedure exporttest;export;

    begin
    end;

  exports exporttest;
{$endif}

begin
end.