blob: 1c99a838f7c7e23e747ccfe33be6c71f09d2d88e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{ %fail }
{$mode iso}
type
tr = record
l : longint;
case i : integer of
1 : (s : array[0..255] of char);
2 : (n : integer);
3 : (w : word; case j : integer of
1 : (s : array[0..255] of char);
2 : (a : integer);
);
end;
pr = ^tr;
var
r : pr;
begin
new(r,3,2,4);
if r^.i<>3 then
halt(1);
if r^.j<>2 then
halt(1);
dispose(r);
writeln('ok');
end.
|
