mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 02:48:07 +02:00
20 lines
475 B
ObjectPascal
20 lines
475 B
ObjectPascal
{ %OPT=-FNudots.moredots -FNudots }
|
|
|
|
program tudots5;
|
|
|
|
uses
|
|
unit8; // picks up UDots.MoreDots.Unit8 in udots.moredots.unit8.pp (instead of also existing udots.unit8.pp)
|
|
|
|
begin
|
|
if Unit8Str <> 'UDots.MoreDots.Unit8' then
|
|
Halt(1);
|
|
if Unit8.Unit8Str <> 'UDots.MoreDots.Unit8' then
|
|
Halt(2);
|
|
if MoreDots.Unit8.Unit8Str <> 'UDots.MoreDots.Unit8' then
|
|
Halt(3);
|
|
if UDots.MoreDots.Unit8.Unit8Str <> 'UDots.MoreDots.Unit8' then
|
|
Halt(4);
|
|
|
|
Writeln('ok');
|
|
end.
|