summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw2187.pp
blob: 0e1520fde6b5c69173c6200351dbb76939db6225 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
{ Source provided for Free Pascal Bug Report 2187 }
{ Submitted by "Artur Kornilowicz" on  2002-10-18 }
{ e-mail: arturk@math.uwb.edu.pl }
{$mode delphi}
type x = record
            s : string;
            a : ^byte;
         end;

var a: array [1..2] of x;

begin
end.