@@ -0,0 +1,9 @@
+ program bug0186;
+ var
+ endline:^integer;
+ line:array [1..endline^] of ^char;
+ begin
+ new (endline);
+ endline^:=5;
+ endline^:=10;
+ end.
@@ -247,3 +247,4 @@ bug0169.pp missing new(type) support for not object/class
bug0171.pp missing typecasting in constant expressions
bug0183.pp internal error 10
bug0185.pp missing range checking for Val and subrange types
+bug0186.pp Erroneous array syntax is accepted.