t_id
188
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| -2127976520 | 497919 | 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
}