Print names of all open blocks

Fixes bug 5597.

2 files changed, 11 insertions, 0 deletions

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 *)