t_id
188
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525916334 | 948269 | True | False | Successfully run |
Record count: 1
{****************************************************************} { CODE GENERATOR TEST PROGRAM } { By Carl Eric Codere } {****************************************************************} { NODE TESTED : secondloadvmt() } {****************************************************************} { DEFINES: } { FPC = Target is FreePascal compiler } {****************************************************************} { REMARKS : Tested with Delphi 3 as reference implementation } {****************************************************************} program tloadvmt; {$ifdef fpc} {$mode objfpc} {$endif} const RESULT_STRING = 'Hello world'; Type TAObject = class(TObject) a : longint; end; TBObject = Class(TAObject) b : longint; s : shortstring; constructor create(c: longint); function getstring : shortstring; end; procedure fail; begin WriteLn('Failure.'); halt(1); end; constructor tbobject.create(c:longint); begin taobject.create; b:=c; s:=RESULT_STRING; end; function tbobject.getstring : shortstring; begin getstring := s; end; var bobj: TBobject; i: integer; l : longint; Begin i:=$7f; Write('Secondloadvmt test...'); bobj:=TBobject.create(i); if bobj.getstring <> RESULT_STRING then fail else WriteLn('Success!'); end. { $Log: tloadvmt.pp,v $ Revision 1.2 2002/09/07 15:40:56 peter * old logs removed and tabs fixed Revision 1.1 2002/08/10 08:27:43 carl + mre tests for cg testuit }