+ new test.

git-svn-id: trunk@6056 -

.gitattributes

@@ -6193,6 +6193,7 @@ tests/tbs/tb0522.pp svneol=native#text/plain
 tests/tbs/tb0523.pp svneol=native#text/plain
 tests/tbs/tb0524.pp svneol=native#text/x-pascal
 tests/tbs/tb0525.pp svneol=native#text/plain
+tests/tbs/tb0526.pp -text
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain

tests/tbs/tb0526.pp

@@ -0,0 +1,16 @@
+{%norun}
+{$mode objfpc}
+type
+  TMyClass = class
+  protected
+    Field1 {$IFDEF DUMMY}, Field2 {$ENDIF} : Boolean;
+    procedure Proc;
+  end;
+
+procedure TMyClass.Proc;
+begin
+  Field1:=True;
+end;
+
+begin
+end.