summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/tbs/tb0225.pp
blob: 12001c235d709dc7af7695d69c0481da6945eb3a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{ %TARGET=win32,linux,wince }
{ %NORUN }

{ Old file: tbs0263.pp }
{ export directive is not necessary in delphi anymore  OK 0.99.13 (PFV) }

library tb0225;

{
  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.