tests/webtbf/tw15287.pp


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

{ %fail }

program arrayrangeoperator;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils;

type
  TArrayOfInteger = array of integer;
var
  a, b: TArrayOfInteger;
begin
  SetLength(a,10);
  b:=a[2..4];
end.