t_id
977
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 50 | 100.0 | 2024/05/20 23:33:00 38 | 2024/05/21 01:32:00 28 | |
| i386 | 33 | 66.0 | 2024/05/21 00:08:00 23 | 2024/05/21 01:32:00 28 | |
| sparc | 5 | 10.0 | 2024/05/20 23:33:00 38 | 2024/05/20 23:55:00 41 | |
| x86_64 | 7 | 14.0 | 2024/05/20 23:44:00 14 | 2024/05/21 01:25:00 26 | |
| powerpc64 | 2 | 4.0 | 2024/05/21 01:10:00 101 | 2024/05/21 01:11:00 108 | |
| aarch64 | 3 | 6.0 | 2024/05/21 00:12:00 32 | 2024/05/21 01:29:00 35 | |
| linux | 45 | 90.0 | 2024/05/20 23:44:00 14 | 2024/05/21 01:32:00 28 | |
| solaris | 5 | 10.0 | 2024/05/20 23:33:00 38 | 2024/05/20 23:55:00 41 | |
| 3.3.1 | 30 | 60.0 | 2024/05/20 23:37:00 42 | 2024/05/21 01:32:00 28 | |
| 3.2.3 | 20 | 40.0 | 2024/05/20 23:33:00 38 | 2024/05/21 01:30:00 34 |
{ %version=1.1 }
{ Source provided for Free Pascal Bug Report 2669 }
{ Submitted by "marco" on 2003-09-06 }
{ e-mail: marco+web@freepascal.org }
{$mode Delphi}
Type
TPop3NextProc = procedure of object;
t1= class
procedure server; virtual;
procedure run; virtual;
procedure connect; virtual;
end;
t2=class
f1 : t1;
procedure exec(p:TPop3NextProc);
procedure callexec;
constructor create;
end;
procedure t1.server;
begin
writeln('server');
end;
procedure t1.run;
begin
writeln('run');
end;
procedure t1.connect;
begin
writeln('connect');
end;
constructor t2.create;
begin
inherited create;
f1:=t1.create;
end;
procedure t2.exec(p:TPop3NextProc);
begin
writeln('in exec');
p;
end;
procedure t2.callexec;
begin
writeln('callexec');
exec(f1.server);
exec(f1.run);
exec(f1.connect);
end;
var c1 : t2;
begin
writeln('start');
c1:=t2.create;
writeln('after create');
c1.callexec;
writeln('end');
end.