fpc/tests/tbs0180a.pp
1998-11-23 23:44:50 +00:00

14 lines
221 B
ObjectPascal

{ $OPT=-Un }
{ 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.