diff --git a/.gitattributes b/.gitattributes
index 85d7e1411c..18aeca1cf2 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/test/tclass10a.pp b/tests/test/tclass10a.pp
new file mode 100644
index 0000000000..1c4efdba9f
--- /dev/null
+++ b/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.