From ec57e7bedbd6719ad1b03800d6a8d7efd1b75ee4 Mon Sep 17 00:00:00 2001
From: Paul Steckler
Date: Thu, 25 May 2017 11:03:18 -0400
Subject: Bug 5546, qualify datatype constructors when needed

---
 test-suite/output/ShowMatch.out |  8 ++++++++
 test-suite/output/ShowMatch.v   | 13 +++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 test-suite/output/ShowMatch.out
 create mode 100644 test-suite/output/ShowMatch.v

(limited to 'test-suite')

diff --git a/test-suite/output/ShowMatch.out b/test-suite/output/ShowMatch.out
new file mode 100644
index 0000000000..e5520b8dfa
--- /dev/null
+++ b/test-suite/output/ShowMatch.out
@@ -0,0 +1,8 @@
+match # with
+ | f =>
+ end
+ 
+match # with
+ | A.f =>
+ end
+ 
diff --git a/test-suite/output/ShowMatch.v b/test-suite/output/ShowMatch.v
new file mode 100644
index 0000000000..02b7eada83
--- /dev/null
+++ b/test-suite/output/ShowMatch.v
@@ -0,0 +1,13 @@
+(* Bug 5546 complained about unqualified constructors in Show Match output, 
+   when qualification is needed to disambiguate them
+*)
+
+Module A.
+  Inductive foo := f.
+  Show Match foo. (* no need to disambiguate *)
+End A. 
+
+Module B.
+  Inductive foo := f.
+  (* local foo shadows A.foo, so constructor "f" needs disambiguation *)
+  Show Match A.foo. 
-- 
cgit v1.2.3