mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-23 22:31:31 +02:00
10 lines
160 B
ObjectPascal
10 lines
160 B
ObjectPascal
program bug0186;
|
|
var
|
|
endline:^integer;
|
|
line:array [1..endline^] of ^char;
|
|
begin
|
|
new (endline);
|
|
endline^:=5;
|
|
endline^:=10;
|
|
end.
|