#2724

TestSuite/tuples2.pas

@@ -0,0 +1,11 @@
+begin
+  var a := |System.ValueTuple.Create('c',1)|;
+  var b := false;
+  foreach var (ch, i) in a do
+    begin
+      assert(ch = 'c');
+      assert(i = 1);
+      b := true;
+    end;
+  assert(b);
+end.

TreeConverter/TreeConversion/SyntaxTreeVisitorNodes/Foreach.cs

@@ -93,7 +93,7 @@ namespace PascalABCCompiler.TreeConverter
 
             var IsTuple = false;
             var IsSequence = false;
-            if (t.FullName.StartsWith("System.Tuple"))
+            if (t.FullName.StartsWith("System.Tuple") || t.FullName.StartsWith("System.ValueTuple"))
                 IsTuple = true;
             if (!IsTuple)
             {