Skip to content
Snippets Groups Projects
Commit 3480a4a9 authored by pfdietz's avatar pfdietz
Browse files

Test demonstrating a bug in the abl interpreter.

parent 18559573
Branches
Tags
No related merge requests found
...@@ -6651,4 +6651,11 @@ Broken at C::WT-C-INLINE-LOC. ...@@ -6651,4 +6651,11 @@ Broken at C::WT-C-INLINE-LOC.
287358622300 400248608)) 287358622300 400248608))
0) 0)
;;; Wrong return value
(deftest misc.360
(let ((c :good))
(dotimes (i 1 c)
(dotimes (j 1 (setf c :bad)) (go 7))
7))
:good)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment