mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
9ab5affd55
pdecl.pas, types_dec: * invoke the VMT builder for generic classes as well + added test git-svn-id: trunk@27869 -
24 lines
319 B
ObjectPascal
24 lines
319 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tw26193;
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
TA<T> = class
|
|
function Foo: Boolean; virtual; abstract;
|
|
end;
|
|
|
|
TB<T> = class(TA<byte>)
|
|
// Missing (!) error: There is no method in an ancestor class to be overridden: "Foo;"
|
|
procedure Foo; override;
|
|
end;
|
|
|
|
procedure TB<T>.Foo;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|