From fb5750e4117a5455f7659fb7eec2b375a83e2e36 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Fri, 20 Jun 2014 15:22:29 +0200
Subject: Fix computation of inductive level in monomorphism + indices-matter
 mode. Fixes bug #3346.

---
 test-suite/bugs/closed/3346.v | 4 ++++
 test-suite/bugs/opened/3346.v | 4 ----
 test-suite/bugs/opened/3372.v | 5 -----
 3 files changed, 4 insertions(+), 9 deletions(-)
 create mode 100644 test-suite/bugs/closed/3346.v
 delete mode 100644 test-suite/bugs/opened/3346.v
 delete mode 100644 test-suite/bugs/opened/3372.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/3346.v b/test-suite/bugs/closed/3346.v
new file mode 100644
index 0000000000..638404f2cb
--- /dev/null
+++ b/test-suite/bugs/closed/3346.v
@@ -0,0 +1,4 @@
+(* -*- mode: coq; coq-prog-args: ("-emacs" "-indices-matter") -*- *)
+Monomorphic Inductive paths (A : Type) (a : A) : A -> Type := idpath : paths A a a.
+(* This should fail with -indices-matter *)
+Fail Check paths nat O O : Prop.
diff --git a/test-suite/bugs/opened/3346.v b/test-suite/bugs/opened/3346.v
deleted file mode 100644
index 8c68565108..0000000000
--- a/test-suite/bugs/opened/3346.v
+++ /dev/null
@@ -1,4 +0,0 @@
-(* -*- mode: coq; coq-prog-args: ("-emacs" "-indices-matter") -*- *)
-Monomorphic Inductive paths (A : Type) (a : A) : A -> Type := idpath : paths A a a.
-(* This should fail with -indices-matter *)
-Check paths nat O O : Prop.
diff --git a/test-suite/bugs/opened/3372.v b/test-suite/bugs/opened/3372.v
deleted file mode 100644
index 13ce75b84c..0000000000
--- a/test-suite/bugs/opened/3372.v
+++ /dev/null
@@ -1,5 +0,0 @@
-Set Universe Polymorphism.
-Definition hProp : Type := sigT (fun _ : Type => True).
-Goal hProp@{Set}. (* Toplevel input, characters 15-32:
-Anomaly: Uncaught exception Invalid_argument("Array.iter2", _).
-Please report. *)
-- 
cgit v1.2.3