t_id
917
t_adddate
2003/10/03
t_result
123
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-12950894 | 860205 | True | False | Successfully run |
Record count: 1
{ %RESULT=123 } { Source provided for Free Pascal Bug Report 2197 } { Submitted by "Pavel V.Ozerski" on 2002-10-23 } { e-mail: pavel@insect.mail.iephb.ru } {$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.