blob: cba9a5d0ef5a159580e20d25bd8fa6ec77c89415 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ this tests that a helper in an implementation section takes precedence over a
helper defined in the interface section }
program thlp43;
{$ifdef fpc}
{$mode delphi}
{$endif}
{$apptype console}
uses
uhlp43;
var
res: Integer;
begin
res := DoTest;
Writeln('DoTest: ', res);
if res <> 2 then
Halt(1);
Writeln('ok');
end.
|
