blob: ac11769b05e374afa113873b55bf54a39189410a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ %OPT= -So }
{ Old file: tbs0179.pp }
{ show a problem for -So mode OK 0.99.9 (PM) }
UNIT tb0149;
INTERFACE
PROCEDURE A(B:WORD);
IMPLEMENTATION
PROCEDURE A; { <-- works with TP, FP says overloading problem }
BEGIN
Write(B);
END;
END.
|
