diff --git a/TestSuite/isvar2.pas b/TestSuite/isvar2.pas
new file mode 100644
index 000000000..4808ebbc9
--- /dev/null
+++ b/TestSuite/isvar2.pas
@@ -0,0 +1,18 @@
+function f1(o: object): sequence of object;
+begin
+  
+  //var c := o is object(var a);
+  if o is object(var a) then
+  begin
+  //  var b := a;
+  //  Writeln(a); // object
+    yield a;
+    Assert(a <> nil); // nil
+  //  Writeln(b); // object
+  //  b := b;
+  end;
+end;
+
+begin
+  foreach var o in f1(new object) do
+end.
\ No newline at end of file
diff --git a/TestSuite/isvar3.pas b/TestSuite/isvar3.pas
new file mode 100644
index 000000000..4f10e0e48
--- /dev/null
+++ b/TestSuite/isvar3.pas
@@ -0,0 +1,19 @@
+function f1(o: object): sequence of object;
+begin
+  
+  //var c := o is object(var a);
+  if o is object(var a) then
+  //begin
+  //  var b := a;
+  //  Writeln(a); // object
+    yield a;
+    //Assert(a <> nil); // nil
+  //  Writeln(b); // object
+  //  b := b;
+  //end;
+end;
+
+begin
+  foreach var o in f1(new object) do
+    Assert(o<>nil)
+end.
\ No newline at end of file
diff --git a/TestSuite/isvar4.pas b/TestSuite/isvar4.pas
new file mode 100644
index 000000000..3d54646af
--- /dev/null
+++ b/TestSuite/isvar4.pas
@@ -0,0 +1,19 @@
+function f1(o: object): sequence of object;
+begin
+  
+  var c := o is object(var a);
+  //if o is object(var a) then
+  //begin
+  //  var b := a;
+  //  Writeln(a); // object
+  yield a;
+  Assert(a <> nil); // nil
+  //  Writeln(b); // object
+  //  b := b;
+  //end;
+end;
+
+begin
+  foreach var o in f1(new object) do
+    
+end.
\ No newline at end of file