mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:39:40 +01: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.
|