diff --git a/.gitattributes b/.gitattributes
index dd78cdfc39..41fbaebfd1 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -10845,6 +10845,10 @@ tests/test/opt/tcse2.pp svneol=native#text/plain
 tests/test/opt/tcse3.pp svneol=native#text/plain
 tests/test/opt/tcse4.pp svneol=native#text/pascal
 tests/test/opt/tcse5.pp svneol=native#text/pascal
+tests/test/opt/tdeadstr1.pp svneol=native#text/pascal
+tests/test/opt/tdeadstr2.pp svneol=native#text/pascal
+tests/test/opt/tdeadstr3.pp svneol=native#text/pascal
+tests/test/opt/tdeadstr4.pp svneol=native#text/pascal
 tests/test/opt/tdfa1.pp svneol=native#text/pascal
 tests/test/opt/tdfa10.pp svneol=native#text/pascal
 tests/test/opt/tdfa11.pp svneol=native#text/pascal
@@ -10876,6 +10880,7 @@ tests/test/opt/twpo4.pp svneol=native#text/plain
 tests/test/opt/twpo5.pp svneol=native#text/plain
 tests/test/opt/twpo6.pp svneol=native#text/plain
 tests/test/opt/twpo7.pp svneol=native#text/plain
+tests/test/opt/udeadstr4.pp svneol=native#text/pascal
 tests/test/opt/uwpo2.pp svneol=native#text/plain
 tests/test/packages/bzip2/tbzip2streamtest.pp svneol=native#text/plain
 tests/test/packages/bzip2/testbzip2.res -text
diff --git a/tests/test/opt/tdeadstr1.pp b/tests/test/opt/tdeadstr1.pp
new file mode 100644
index 0000000000..ce6fcdf64c
--- /dev/null
+++ b/tests/test/opt/tdeadstr1.pp
@@ -0,0 +1,19 @@
+{ %OPT=-O3 -Oodeadstore }
+procedure p;
+  var
+    i : longint;
+  procedure n;
+    begin
+      if i<>1234 then
+        halt(1);
+    end;
+
+  begin
+    i:=1234;
+    n;
+  end;
+
+begin
+  p;
+  writeln('ok');
+end.
diff --git a/tests/test/opt/tdeadstr2.pp b/tests/test/opt/tdeadstr2.pp
new file mode 100644
index 0000000000..b7ee6244e0
--- /dev/null
+++ b/tests/test/opt/tdeadstr2.pp
@@ -0,0 +1,19 @@
+{ %OPT=-O3 -Oodeadstore }
+var
+  p : plongint;
+
+procedure p2;
+  var
+    i : longint;
+  begin
+    i:=1234;
+    p:=@i;
+    if p^<>1234 then
+      halt(1);
+  end;
+
+
+begin
+  p2;
+  writeln('ok');
+end.
diff --git a/tests/test/opt/tdeadstr3.pp b/tests/test/opt/tdeadstr3.pp
new file mode 100644
index 0000000000..4965b82449
--- /dev/null
+++ b/tests/test/opt/tdeadstr3.pp
@@ -0,0 +1,9 @@
+{ %OPT=-O3 -Oodeadstore }
+var
+  i : longint;
+  b : byte;
+
+begin
+  i:=1234;
+  b:=i;
+end.
diff --git a/tests/test/opt/tdeadstr4.pp b/tests/test/opt/tdeadstr4.pp
new file mode 100644
index 0000000000..75b0c7252d
--- /dev/null
+++ b/tests/test/opt/tdeadstr4.pp
@@ -0,0 +1,9 @@
+{ %OPT=-O3 -Oodeadstore }
+uses
+  udeadstr4;
+
+begin
+  if i<>1234 then
+    halt(1);
+  writeln('ok');
+end.
diff --git a/tests/test/opt/udeadstr4.pp b/tests/test/opt/udeadstr4.pp
new file mode 100644
index 0000000000..b6b8c62532
--- /dev/null
+++ b/tests/test/opt/udeadstr4.pp
@@ -0,0 +1,14 @@
+{ %OPT=-O3 -Oodeadstore }
+{ %norun }
+unit udeadstr4;
+
+  interface
+
+    var
+      i : longint;
+
+  implementation
+
+begin
+  i:=1234;
+end.