* new bug

This commit is contained in:
peter 2000-08-16 19:07:41 +00:00
parent 03b63234e4
commit 64383892e3
2 changed files with 25 additions and 0 deletions

9
tests/tbs/tbs0346a.pp Normal file
View File

@ -0,0 +1,9 @@
unit tbs0346a;
interface
type
word = system.word;
implementation
end.

16
tests/tbs/tbs0346b.pp Normal file
View File

@ -0,0 +1,16 @@
unit tbs0346b;
interface
{ this uses system.word }
procedure p(w:word);
implementation
uses
tbs0346a;
{ this uses tbs0346a.word }
procedure p(w:word);
begin
end;
end.