mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 06:18:16 +02:00
19 lines
301 B
ObjectPascal
19 lines
301 B
ObjectPascal
{%NORUN}
|
|
{%FAIL}
|
|
program tb0200;
|
|
|
|
{$H-}
|
|
|
|
{TP rejects this code both with range checking off and on. However,
|
|
we allow indexing arrays out of bounds with range checks off, so
|
|
we best reject this then only with range checking on.}
|
|
|
|
{$Q+,R+}
|
|
|
|
var a:string;
|
|
c:char;
|
|
|
|
begin
|
|
a:='';
|
|
c:=a[257];
|
|
end. |