blob: 1c4efdba9fa77d5ed849c422e2071e4b941d0d03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
program tclass10a;
{$ifdef fpc}
{$mode delphi}
{$endif}
// check that "protected" or any other section resets the section type to accept regular fields
type
Tfoo=class
private
type
TF = (one,two,three);
protected
f: TF;
end;
begin
end.
|
