[fpc-devel] is that intended? private type section in classes versus visibility

[Martin]

Since it now is possible to define types inside a class,
please look at the example below.

the class internal type section continues accross the border of the 
visibility "protected" => an error is given that after the "f" a "=" was 
expected (as needed for a new type "f")

Is that intended? Or should a visibility change exit  the type section?


program Project1;
{$mode objfpc}{$H+}

type
   Tfoo=class
   private
     type
       TF = (one,two,three);
//    var // enable this and it works
   protected
     f: TF;
   end;

begin
end.