fpcsrc/tests/test/t4cc2.pp


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

{ %fail }

{$mode fpc}

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

var
  l: longint;
  
begin
  l[1] := 'a';
  l[2] := 'b';
  l[3] := 'c';
  l[4] := 'd';
end.