t_id
415
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
456204970 | 936985 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0213.pp } { name mangling problem with nested procedures in overloaded } uses ub0179; PROCEDURE Testsomething(VAR A:LONGINT); FUNCTION Internaltest(L:LONGINT):LONGINT; BEGIN InternalTest:=L+10; END; BEGIN A:=Internaltest(20)+5; END; PROCEDURE Testsomething(VAR A:WORD); FUNCTION Internaltest(L:LONGINT):WORD; BEGIN InternalTest:=L+15; END; BEGIN A:=Internaltest(20)+5; END; VAR O : LONGINT; O2 : WORD; BEGIN TestSomething(O); TestSomething(O2); END.