fpcsrc/tests/webtbs/tw13345.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{ %opt=-gh }

program iftest;
{$mode DELPHI}
uses uw13345c;
//uses uw13345b, uw13345c;
begin
 HaltOnNotReleased:=true;
 Writeln('START');
 GTEST.Test;
 Writeln('END');
end.