tests: class sections test by Martin

git-svn-id: trunk@15625 -

.gitattributes

@@ -9076,6 +9076,7 @@ tests/test/tcg1.pp svneol=native#text/plain
 tests/test/tcint64.pp svneol=native#text/plain
 tests/test/tclass1.pp svneol=native#text/plain
 tests/test/tclass10.pp svneol=native#text/pascal
+tests/test/tclass10a.pp svneol=native#text/pascal
 tests/test/tclass11a.pp svneol=native#text/pascal
 tests/test/tclass11b.pp svneol=native#text/pascal
 tests/test/tclass12a.pp svneol=native#text/pascal

tests/test/tclass10a.pp

@@ -0,0 +1,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.