tests/test/tclass10.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

program tclass10;
{$ifdef fpc}
  {$mode delphi}
{$endif}

type

  { c }

  c=class
   type
     TSomeType = (st1, st2);
    function DoSomething: TSomeType;
  end;

{ c }

function c.DoSomething: TSomeType;
begin
  Result := st1;
end;

begin
end.