mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
30 lines
326 B
ObjectPascal
30 lines
326 B
ObjectPascal
program tb0540;
|
|
|
|
{$mode objfpc}
|
|
{$H-}
|
|
{$Q+,R+}
|
|
|
|
uses sysutils;
|
|
|
|
var a:string;
|
|
b:string[63];
|
|
c:char;
|
|
w:word;
|
|
|
|
begin
|
|
a:='';
|
|
b:='';
|
|
w:=257;
|
|
try
|
|
c:=a[w];
|
|
writeln('string[255] failure');
|
|
halt(1);
|
|
except
|
|
end;
|
|
try
|
|
c:=b[w];
|
|
writeln('string[63] failure');
|
|
halt(2);
|
|
except
|
|
end;
|
|
end. |