[svn] r6088: nemerle/trunk/ncc/testsuite/positive/tail-call-native.n

[nazgul]

Log:
Testcase for native tail call opcode

Author: nazgul
Date: Thu Jan 26 21:23:38 2006
New Revision: 6088

Added:
   nemerle/trunk/ncc/testsuite/positive/tail-call-native.n

Added: nemerle/trunk/ncc/testsuite/positive/tail-call-native.n
==============================================================================
--- (empty file)
+++ nemerle/trunk/ncc/testsuite/positive/tail-call-native.n	Thu Jan 26 21:23:38 2006
@@ -0,0 +1,31 @@
+
+#pragma indent
+
+// OPTIONS: -Ot
+
+using System
+
+class Mutual 
+  foo (x : int) : void 
+    when (x > 0)
+      bar (x - 1)
+      
+  public bar (x : int) : void
+    foo (x)
+
+    
+def ReadLine () : string
+  def loop ()
+    if (1 == 3)
+      loop ()
+    else if (-1 == -1)
+      "".ToString ()
+    else
+      loop ()
+  loop ()
+    
+_ = ReadLine ()
+
+
+def mut = Mutual()
+mut.bar (2000000);