freepascal.compiler/tests/tbs/tb0582.pp

{ %norun }
library liba;

function A : integer;

begin
end;

exports
   A name 'c';
end.