summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbf/uw2414.pp
blob: 06f6bd714726140c3cabe2310cd5167ac685efa7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
{ Source provided for Free Pascal Bug Report 2414 }
{ Submitted by "Louis Jean-Richard" on  2003-03-10 }
{ e-mail: Ljean_richard@compuserve.com }
UNIT uw2414;
INTERFACE
TYPE
        anObj   =
                OBJECT
                        PROCEDURE A( CONST s : string );
                        k       : cardinal;
                        PRIVATE
                        PROCEDURE A( CONST s : string; n : word );
                END
                ;
IMPLEMENTATION
PROCEDURE anObj.A( CONST s : string; n : word );
BEGIN
        WriteLn(' ':n, s)
END
;
PROCEDURE anObj.A( CONST s : string );
BEGIN
        A(s, k)
END
;
END
.