mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 23:29:29 +02:00
18 lines
157 B
ObjectPascal
18 lines
157 B
ObjectPascal
{ %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.
|
|
|