fpcsrc/tests/webtbs/tw8049.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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.