blob: d3955767453ae437248459e9812ca5b1c348551a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{ %FAIL}
program tstatic4;
{$APPTYPE console}
{$ifdef fpc}
{$mode delphi}{$H+}
{$endif}
type
{ TSomeClass }
TSomeClass = class
public
class procedure StaticProc; static;
procedure RegularProc;
end;
{ TSomeClass }
procedure TSomeClass.RegularProc;
begin
end;
class procedure TSomeClass.StaticProc;
begin
RegularProc;
end;
begin
end.
|
