diff --git a/.gitattributes b/.gitattributes
index fa8463e77d..6a960e7e06 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6662,6 +6662,7 @@ tests/tbf/tb0211.pp svneol=native#text/plain
 tests/tbf/tb0212.pp svneol=native#text/plain
 tests/tbf/tb0213.pp svneol=native#text/plain
 tests/tbf/tb0214.pp svneol=native#text/plain
+tests/tbf/tb0215.pp svneol=native#text/plain
 tests/tbf/ub0115.pp svneol=native#text/plain
 tests/tbf/ub0149.pp svneol=native#text/plain
 tests/tbf/ub0158a.pp svneol=native#text/plain
diff --git a/tests/tbf/tb0215.pp b/tests/tbf/tb0215.pp
new file mode 100644
index 0000000000..74d497e2ae
--- /dev/null
+++ b/tests/tbf/tb0215.pp
@@ -0,0 +1,20 @@
+{ %fail }
+
+{$r-}
+type
+  chararray = array[0..200] of char;
+var
+  p: pchar;
+  i: longint;
+begin
+  getmem(p,5);
+  p[0]:='a';
+  p[1]:='b';
+  p[2]:='c';
+  p[3]:='d';
+  p[4]:=#0;
+  i:=3;
+  chararray(p^)[i]:=#0;
+  writeln(p);
+  freemem(p);
+end.