From 273005ac85e9ae0c23328e243edeadfc8dcaf8bb Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 22 Oct 2015 22:25:35 +0200
Subject: Fixing a bug in reporting ill-formed inductive.

Was introduced in b06d3badb (15 Jul 2015).
---
 test-suite/output/Inductive.out | 3 +++
 test-suite/output/Inductive.v   | 3 +++
 2 files changed, 6 insertions(+)
 create mode 100644 test-suite/output/Inductive.out
 create mode 100644 test-suite/output/Inductive.v

(limited to 'test-suite')

diff --git a/test-suite/output/Inductive.out b/test-suite/output/Inductive.out
new file mode 100644
index 0000000000..e912003f03
--- /dev/null
+++ b/test-suite/output/Inductive.out
@@ -0,0 +1,3 @@
+The command has indeed failed with message:
+Last occurrence of "list'" must have "A" as 1st argument in
+ "A -> list' A -> list' (A * A)%type".
diff --git a/test-suite/output/Inductive.v b/test-suite/output/Inductive.v
new file mode 100644
index 0000000000..8db8956e32
--- /dev/null
+++ b/test-suite/output/Inductive.v
@@ -0,0 +1,3 @@
+Fail Inductive list' (A:Set) : Set :=
+| nil' : list' A
+| cons' : A -> list' A -> list' (A*A).
-- 
cgit v1.2.3