* Improve test.

git-svn-id: trunk@7824 -

tests/tbf/tb0201.pp

@@ -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.