mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:08:13 +02:00
26 lines
282 B
ObjectPascal
26 lines
282 B
ObjectPascal
{$mode objfpc}
|
|
|
|
|
|
procedure dirtystack;
|
|
var
|
|
s: shortstring;
|
|
begin
|
|
fillchar(s,sizeof(s),255);
|
|
end;
|
|
|
|
procedure test(const arr: array of const);
|
|
begin
|
|
if arr[0].vinteger<>ord('$') then
|
|
halt(1);
|
|
end;
|
|
|
|
procedure doit;
|
|
begin
|
|
test(['$']);
|
|
end;
|
|
|
|
begin
|
|
dirtystack;
|
|
doit;
|
|
end.
|