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