t_id
534
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022420670 | 1027329 | True | False | Successfully run |
Record count: 1
{ this program shows a possible problem of name mangling in FPC (PM) } procedure test; function a : longint; begin a:=1; end; begin writeln('a = ',a); end; procedure test(b : byte); function a : longint; begin a:=2; end; begin writeln('b = ',b); writeln('a = ',a); end; type a = word; function test_(b : a) : longint; begin test_:=b; end; begin test(1); test; test(4); end.