mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 14:33:41 +02:00
11 lines
177 B
ObjectPascal
11 lines
177 B
ObjectPascal
{ $OPT= -So }
|
|
UNIT tbs0179;
|
|
INTERFACE
|
|
PROCEDURE A(B:WORD);
|
|
IMPLEMENTATION
|
|
PROCEDURE A; { <-- works with TP, FP says overloading problem }
|
|
BEGIN
|
|
Write(B);
|
|
END;
|
|
END.
|