t_id
929
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950717654 | 1015783 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2268 } { Submitted by "marco" on 2002-12-19 } { e-mail: marco@freepascal.org } {$ifdef fpc}{$mode TP}{$endif} function P1:longint; begin end; function P2:longint; begin end; function P3:longint; begin end; function Help:longint; begin end; type Fn = function : longint ; const PArr : array [0..3] of Fn = (Help, P1, P2, P3) ; procedure bla(const i:longint); begin end; begin bla(PArr[Paramcount]); end.