tests/tbs/tb0004.pp


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

{ Old file: tbs0005.pp }
{  tests the if 1=1 then ... bugs                       OK 0.9.2 }

uses
  erroru;

begin
  if 1=1 then
    begin
      Writeln('OK');
    end;
  if 1<>1 then
    begin
      Error;
    end;
end.