mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
e2b8792bd3
initialization code of units/programs, because they are already
zero and initializing them explicitly is Delphi-incompatible
(mantis #13345)
git-svn-id: trunk@13042 -
14 lines
174 B
ObjectPascal
14 lines
174 B
ObjectPascal
{ %opt=-gh }
|
|
|
|
program iftest;
|
|
{$mode DELPHI}
|
|
uses uw13345c;
|
|
//uses uw13345b, uw13345c;
|
|
begin
|
|
HaltOnNotReleased:=true;
|
|
Writeln('START');
|
|
GTEST.Test;
|
|
Writeln('END');
|
|
end.
|
|
|