t_id
1473
t_adddate
2005/01/31
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021980627 | 1027256 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3578 } { Submitted by "Martin Schreiber" on 2005-01-21 } { e-mail: } program project1; {$mode objfpc}{$H+} uses Classes; type widestringarty = array of widestring; procedure proc(const ar1,ar2: array of widestring); begin end; function getarray: widestringarty; begin result:= nil; end; var ar1,ar2: widestringarty; begin proc(ar1,ar2); //ok proc(ar1,getarray); //ok proc(getarray,ar2); //ok proc(getarray,getarray); //Internal error 9999 end.