mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
15 lines
276 B
ObjectPascal
15 lines
276 B
ObjectPascal
{ %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.
|