diff --git a/.gitattributes b/.gitattributes
index 68d36338e5..aab0b6106d 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbs/tw26402.pp b/tests/webtbs/tw26402.pp
new file mode 100644
index 0000000000..a2a209b6b7
--- /dev/null
+++ b/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.