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