Test recursive transparent method

Author: Blaisorblade

tests/run/i4947a.check

@@ -0,0 +1,12 @@
+track (i = 2): Test$.main(i4947a.scala:4)
+track (i = 2): Test$.main(i4947a.scala:5)
+main1 (i = -1): Test$.main(i4947a.scala:20)
+main2 (i = -1): Test$.main(i4947a.scala:21)
+track (i = 1): Test$.main(i4947a.scala:4)
+track (i = 1): Test$.main(i4947a.scala:5)
+main1 (i = -1): Test$.main(i4947a.scala:20)
+main2 (i = -1): Test$.main(i4947a.scala:21)
+track (i = 0): Test$.main(i4947a.scala:4)
+track (i = 0): Test$.main(i4947a.scala:5)
+main1 (i = -1): Test$.main(i4947a.scala:20)
+main2 (i = -1): Test$.main(i4947a.scala:21)

tests/run/i4947a.scala

@@ -0,0 +1,25 @@
+object Test {
+
+  transparent def fact[T](transparent i: Int)(f: => T): Int = {
+    printStack("track", i)
+    printStack("track", i)
+    f
+    if (i == 0)
+      1
+    else {
+      i * fact(i-1)(f)
+    }
+  }
+
+  def printStack(tag: String, i: Int): Unit = {
+    println(s"$tag (i = $i): ${new Exception().getStackTrace().apply(1)}")
+  }
+
+  def main(args: Array[String]): Unit = {
+    fact(2) {
+      printStack("main1", -1)
+      printStack("main2", -1)
+    }
+  }
+
+}