Fix a bug in foreach loops

We should test before the first iteration in case 'to' starts out as
less than 'from'.

1 files changed, 11 insertions, 0 deletions

diff --git a/test/c/foreach_none.sail b/test/c/foreach_none.sail
new file mode 100644
index 00000000..bc960b85
--- /dev/null
+++ b/test/c/foreach_none.sail
@@ -0,0 +1,11 @@
+
+val "print" : string -> unit
+
+val main : unit -> unit
+
+function main() = {
+  foreach (i from 0 to -1 by 1 in inc) {
+    print("unreachable\n");
+  };
+  print("ok\n")
+}
\ No newline at end of file