Enable 440 run tests that pass.

Note that some of them may pass due to several bugs that interfere.

1 files changed, 84 insertions, 0 deletions

diff --git a/tests/run/fors.scala b/tests/run/fors.scala
new file mode 100644
index 000000000..1de164029
--- /dev/null
+++ b/tests/run/fors.scala
@@ -0,0 +1,84 @@
+//############################################################################
+// for-comprehensions (old and new syntax)
+//############################################################################
+
+//############################################################################
+
+object Test extends dotty.runtime.LegacyApp {
+  val xs = List(1, 2, 3)
+  val ys = List('a, 'b, 'c)
+
+  def it = 0 until 10
+
+  val ar = "abc".toCharArray
+
+  /////////////////// old syntax ///////////////////
+
+  def testOld: Unit = {
+    println("\ntestOld")
+
+    // lists
+    for (x <- xs) print(x + " "); println
+    for (x <- xs;
+         if x % 2 == 0) print(x + " "); println
+    for {x <- xs
+         if x % 2 == 0} print(x + " "); println
+    var n = 0
+    for (_ <- xs) n += 1; println(n)
+    for ((x, y) <- xs zip ys) print(x + " "); println
+    for (p @ (x, y) <- xs zip ys) print(p._1 + " "); println
+
+    // iterators
+    for (x <- it) print(x + " "); println
+    for (x <- it;
+         if x % 2 == 0) print(x + " "); println
+    for {x <- it
+         if x % 2 == 0} print(x + " "); println
+
+    // arrays
+    for (x <- ar) print(x + " "); println
+    for (x <- ar;
+         if x.toInt > 97) print(x + " "); println
+    for {x <- ar
+         if x.toInt > 97} print(x + " "); println
+
+  }
+
+  /////////////////// new syntax ///////////////////
+
+  def testNew: Unit = {
+    println("\ntestNew")
+
+    // lists
+    var n = 0
+    for (_ <- xs) n += 1; println(n)
+    for ((x, y) <- xs zip ys) print(x + " "); println
+    for (p @ (x, y) <- xs zip ys) print(p._1 + " "); println
+
+    // iterators
+    for (x <- it) print(x + " "); println
+    for (x <- it if x % 2 == 0) print(x + " "); println
+    for (x <- it; if x % 2 == 0) print(x + " "); println
+    for (x <- it;
+         if x % 2 == 0) print(x + " "); println
+    for (x <- it
+         if x % 2 == 0) print(x + " "); println
+    for {x <- it
+         if x % 2 == 0} print(x + " "); println
+    for (x <- it;
+         y = 2
+         if x % y == 0) print(x + " "); println
+    for {x <- it
+         y = 2
+         if x % y == 0} print(x + " "); println
+
+    // arrays
+    for (x <- ar) print(x + " "); println
+
+  }
+
+  ////////////////////////////////////////////////////
+
+  testOld
+  testNew
+}