mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 21:09:24 +02:00
* new bug
This commit is contained in:
parent
03b63234e4
commit
64383892e3
9
tests/tbs/tbs0346a.pp
Normal file
9
tests/tbs/tbs0346a.pp
Normal file
@ -0,0 +1,9 @@
|
||||
unit tbs0346a;
|
||||
interface
|
||||
|
||||
type
|
||||
word = system.word;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
16
tests/tbs/tbs0346b.pp
Normal file
16
tests/tbs/tbs0346b.pp
Normal 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.
|
Loading…
Reference in New Issue
Block a user