blob: 424d9f327ae7b5deb16153813c353ed9a14060f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ %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.
|
