1 files changed, 6 insertions, 1 deletions
diff --git a/driver/Commandline.ml b/driver/Commandline.ml
index ce5acf9d..c0dd6257 100644
--- a/driver/Commandline.ml
+++ b/driver/Commandline.ml
@@ -98,7 +98,12 @@ let parse_array spec argv first last =
           end else begin
             eprintf "Option `%s' expects an argument\n" s; exit 2
           end
-      | Some (Ignore) -> parse (i+1)
+      | Some (Ignore) ->
+          if i + 1 <= last then begin
+            parse (i+2)
+          end else begin
+            eprintf "Option `%s' expects an argument\n" s; exit 2
+          end
       | Some (Unit f) -> f (); parse (i+1)
     end
   in parse first