From 622806fb27fb0752cdbd2b252da1caa0513b585b Mon Sep 17 00:00:00 2001
From: Tej Chajed
Date: Sat, 5 Aug 2017 18:21:10 +0100
Subject: Print names of all open blocks

Fixes bug 5597.
---
 test-suite/output/UnclosedBlocks.out | 3 +++
 test-suite/output/UnclosedBlocks.v   | 8 ++++++++
 2 files changed, 11 insertions(+)
 create mode 100644 test-suite/output/UnclosedBlocks.out
 create mode 100644 test-suite/output/UnclosedBlocks.v

(limited to 'test-suite')

diff --git a/test-suite/output/UnclosedBlocks.out b/test-suite/output/UnclosedBlocks.out
new file mode 100644
index 0000000000..b83e94ad43
--- /dev/null
+++ b/test-suite/output/UnclosedBlocks.out
@@ -0,0 +1,3 @@
+
+Error: The section Baz, module type Bar and module Foo need to be closed.
+
diff --git a/test-suite/output/UnclosedBlocks.v b/test-suite/output/UnclosedBlocks.v
new file mode 100644
index 0000000000..854bd6a6d5
--- /dev/null
+++ b/test-suite/output/UnclosedBlocks.v
@@ -0,0 +1,8 @@
+(* -*- mode: coq; coq-prog-args: ("-compile" "UnclosedBlocks.v") *)
+Module Foo.
+  Module Closed.
+  End Closed.
+  Module Type Bar.
+    Section Baz.
+      (* end-of-compilation error message reports unclosed sections, blocks, and
+      module types *)
-- 
cgit v1.2.3