* test for mantis #26402 (already fixed in 3.1.1, still broken in 3.0)

git-svn-id: trunk@34282 -

.gitattributes

@@ -14947,6 +14947,7 @@ tests/webtbs/tw2627.pp svneol=native#text/plain
 tests/webtbs/tw26271.pp svneol=native#text/pascal
 tests/webtbs/tw26288.pp svneol=native#text/pascal
 tests/webtbs/tw2631.pp svneol=native#text/plain
+tests/webtbs/tw26402.pp svneol=native#text/plain
 tests/webtbs/tw26403.pp svneol=native#text/pascal
 tests/webtbs/tw26408.pp svneol=native#text/pascal
 tests/webtbs/tw2643.pp svneol=native#text/plain

tests/webtbs/tw26402.pp

@@ -0,0 +1,20 @@
+{ %opt=-vh -Seh }
+{ %norun }
+
+{$MODESWITCH ADVANCEDRECORDS+}
+program test;
+
+type
+   TestInternals = record
+      private
+         type
+            TTest = record
+               Bar: AnsiString;
+            end;
+   end;
+
+var
+   Foo: TestInternals.TTest;
+begin
+   Foo.Bar := '';
+end.