fpc/tests/webtbs/tw27517.pp
2015-03-22 13:00:43 +00:00

12 lines
199 B
ObjectPascal

program Project1;
{$mode objfpc}{$H+}
var
pTyped: PInteger;
p: Pointer;
begin
p := nil;
pTyped := @(PByte(p)+1)^; //project1.lpr(21,23) Fatal: Syntax error, ")" expected but "+" found
end.