blob: beef56860796720f37f48fd1b505b893bd5620b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
program test;
uses sysutils;
var
a : array [Boolean,Boolean] of string;
b : wordbool;
begin
a[False,True] := 'True';
a[False,False] := 'False';
a[True,True] := 'True';
a[True,False] := 'False';
b := True;
if a[false,b]<>'True' then
halt(1);
end.
|
