1 files changed, 44 insertions, 0 deletions
diff --git a/test-suite/standalone/sassy/tests/prims/locals5.scm b/test-suite/standalone/sassy/tests/prims/locals5.scm
new file mode 100644
index 000000000..b7e312fe9
--- /dev/null
+++ b/test-suite/standalone/sassy/tests/prims/locals5.scm
@@ -0,0 +1,44 @@
+(macro my-while
+  (lambda (test . body)
+    `(locals (loop)
+       (label loop
+	 (with-win (jmp short loop)
+	   (seq ,test
+		(begin ,@body)))))))
+
+(text
+  (label loop
+
+    (nop)
+    
+    (my-while (< eax 10)
+	      (pop ebx)
+	      (add eax ebx)))
+  
+  (my-while (> ecx 1000)
+	    (pop ebx)
+	    (sub ecx ebx))
+
+  (jmp short loop))
+
+; loop:
+; 00000000  90                nop
+
+; local loop (#1):
+; 00000001  83F80A            cmp eax,byte +0xa
+; 00000004  7D05              jnl 0xb
+; 00000006  5B                pop ebx
+; 00000007  01D8              add eax,ebx
+; 00000009  EBF6              jmp short 0x1
+
+; local loop (#2):
+; 0000000B  81F9E8030000      cmp ecx,0x3e8
+; 00000011  7E05              jng 0x18
+; 00000013  5B                pop ebx
+; 00000014  29D9              sub ecx,ebx
+; 00000016  EBF3              jmp short 0xb
+
+; 00000018  EBE6              jmp short 0x0
+
+
+