Восстановил три теста is_var

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.

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.

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.