mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
6a9b4a1b13
known at compile time) * adjust error message when a method pointer isn't suitable + add tests
20 lines
260 B
ObjectPascal
20 lines
260 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tprocvar19;
|
|
|
|
{$mode delphi}
|
|
|
|
type C = class
|
|
class procedure Foo;
|
|
end;
|
|
class procedure C.Foo; begin end;
|
|
type CC = class of C;
|
|
type T = procedure of object;
|
|
|
|
var aCC: CC = nil;
|
|
// Still rejected:
|
|
var ViaClassRef: T = aCC.Foo;
|
|
|
|
begin
|
|
end.
|