mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 09:18:10 +02:00
17 lines
249 B
ObjectPascal
17 lines
249 B
ObjectPascal
{ %OPT=-Un }
|
|
|
|
{ Old file: tbs0180a.pp }
|
|
|
|
{ this name should be accepted with -Un option !! }
|
|
UNIT Unit_with_strange_name;
|
|
INTERFACE
|
|
procedure dummy;
|
|
IMPLEMENTATION
|
|
procedure dummy;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
Unit_with_strange_name.dummy;
|
|
END.
|