mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 08:19:34 +02:00
16 lines
173 B
ObjectPascal
16 lines
173 B
ObjectPascal
const
|
|
e = 'as';
|
|
|
|
procedure p(const p);
|
|
begin
|
|
if pchar(@p)^<>'a' then
|
|
begin
|
|
writeln('error');
|
|
halt(1);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
p(e[1]);
|
|
end.
|