t_id
892
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022381468 | 1027322 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2030 } { Submitted by "Michalis Kamburelis" on 2002-07-06 } { e-mail: mkambi@poczta.onet.pl } program wrong_delphi_overloads_handling; {$mode delphi} {under objfpc mode there will be no bug} const err : boolean = true; procedure p; overload; forward; procedure p(a:integer); overload; forward; { it doesn't matter if we add clause "overload" to p's definitions below; the error will still prevent this code from compiling } procedure p; begin err:=false; end; procedure p(a:integer); overload; begin end; begin p; if err then halt(1); end.