mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-30 22:42:33 +02:00
24 lines
336 B
ObjectPascal
24 lines
336 B
ObjectPascal
{$mode TP}
|
|
|
|
program tbug840;
|
|
|
|
uses tbug840a;
|
|
|
|
begin
|
|
tbug840b.i:=1;
|
|
end.
|
|
|
|
----------------------------- cut here ----------------------------------------
|
|
unit ua;
|
|
|
|
interface
|
|
uses ub;
|
|
implementation
|
|
end.
|
|
----------------------------- cut here ----------------------------------------
|
|
unit ub;
|
|
|
|
interface
|
|
var i:longint;
|
|
implementation
|
|
end. |