mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 03:38:21 +02:00
12 lines
170 B
ObjectPascal
12 lines
170 B
ObjectPascal
{ the test checks only if the syntax is possible }
|
|
var
|
|
ca : array[0..1000] of char;
|
|
p1 : pchar;
|
|
|
|
begin
|
|
p1:=nil;
|
|
if (ca-p1)=0 then
|
|
halt(1);
|
|
p1:=ca;
|
|
end.
|
|
|