mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 00:48:37 +02:00
18 lines
305 B
ObjectPascal
18 lines
305 B
ObjectPascal
program tdotunits2;
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
tudots.dot, tudots.dot.next, tudots;
|
|
|
|
begin
|
|
// this identifier should be resolved to test variable from udots.dot unit
|
|
tudots.dot.test := 'a';
|
|
if tudots.dot.test <> 'a' then
|
|
halt(1);
|
|
tudots.dot.t;
|
|
if tudots.dot.test <> 'c' then
|
|
halt(2);
|
|
end.
|
|
|