fpcsrc/tests/test/t4cc1.pp


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

{ %fail }
{$mode macpas}

type
  tchararr = array[1..4] of char;

var
  l: longint;
  
begin
  l[1] := 'a';
  l[2] := 'b';
  l[3] := 'c';
  l[4] := 'd';
  if tchararr(l) <> 'abcd' then
    halt(1);
end.