t_id
739
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
522844380 | 947758 | True | False | Successfully run |
Record count: 1
{$inline on} procedure test(v:boolean); procedure notice(s:string);inline; begin writeln(s); end; begin if v then notice('this string vanishes.'); writeln('"test" main body executed.'); end; begin writeln('testing with True...'); test(true); writeln; writeln('testing with False...'); test(false); end.