* updated runtime check

tests/webtbs/tw2197.pp

@@ -1,16 +1,18 @@
-
-{ Source provided for Free Pascal Bug Report 2197 }
-{ Submitted by "Pavel V.Ozerski" on  2002-10-23 }
-{ e-mail: [email protected] }
-{$APPTYPE CONSOLE}
-{modified sample of Vlad Smaglyuk}
- procedure Average ({const} Row : Array of byte);
-  begin
-    writeln('Procedure body');
-  end;
- BEGIN
-     writeln('Before call');
-     Average([1,2,3]);
-     writeln('After call');
- END.
-
+{ %RESULT=123 }
+{ Source provided for Free Pascal Bug Report 2197 }
+{ Submitted by "Pavel V.Ozerski" on  2002-10-23 }
+{ e-mail: [email protected] }
+{$APPTYPE CONSOLE}
+{modified sample of Vlad Smaglyuk}
+ procedure Average ({const} Row : Array of byte);
+  begin
+    writeln('Procedure body');
+  end;
+ BEGIN
+     writeln('Before call');
+     Average([1,2,3]);
+     writeln('After call');
+     { We need to be sure that the following exitcode is 
+       returned }
+     runerror(123);
+ END.