fpc/bugs/bug0180a.pp
1998-11-13 14:19:55 +00:00

13 lines
208 B
ObjectPascal

{ 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.