paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 15:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Improve test.

Browse Source 
git-svn-id: trunk@7824 -
This commit is contained in:
daniel 2007-06-26 17:28:21 +00:00
parent eef2d4a1df
commit 9eccba45e9
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/tbf/tb0201.pp
View File

@ -1,8 +1,11 @@
program tb0200;
program tb0201;
{$mode objfpc}
{$H-}
{$Q+,R+}
uses sysutils;
var a:string;
b:string[63];
c:char;
@ -12,6 +15,16 @@ begin
a:='';
b:='';
w:=257;
c:=a[w];
c:=b[w];
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.