mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
16 lines
172 B
ObjectPascal
16 lines
172 B
ObjectPascal
program bug;
|
|
|
|
{$Q+}
|
|
|
|
const s:array[0..31] of char='Hell* world';
|
|
index:longint=-6;
|
|
|
|
var c:char;
|
|
p,q:Pchar;
|
|
|
|
begin
|
|
p:=s;
|
|
q:=p-index;
|
|
writeln('Hello ',q);
|
|
end.
|