mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 12:03:45 +02:00
16 lines
273 B
ObjectPascal
16 lines
273 B
ObjectPascal
{ $OPT=-Un }
|
|
{ this name should be accepted with -Un option !! }
|
|
UNIT bug0180;
|
|
INTERFACE
|
|
uses
|
|
tbs0180a;
|
|
|
|
procedure dummy;
|
|
IMPLEMENTATION
|
|
procedure dummy;
|
|
begin
|
|
{ Unit_with_strange_name.dummy; should this work ?? }
|
|
tbs0180a.dummy;
|
|
end;
|
|
END.
|