From ab8b59f441b94580f923a3021e2f8c6c15f5a268 Mon Sep 17 00:00:00 2001
From: Per Bothner <per@bothner.com>
Date: Fri, 16 Sep 1994 23:55:01 +0000
Subject: 	* pr-5646.ch, pr-5646.exp, Makefile.in:  New testcase.

---
 gdb/testsuite/gdb.chill/pr-5646.ch | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 gdb/testsuite/gdb.chill/pr-5646.ch

(limited to 'gdb/testsuite/gdb.chill/pr-5646.ch')

diff --git a/gdb/testsuite/gdb.chill/pr-5646.ch b/gdb/testsuite/gdb.chill/pr-5646.ch
new file mode 100644
index 0000000..186fbb7
--- /dev/null
+++ b/gdb/testsuite/gdb.chill/pr-5646.ch
@@ -0,0 +1,15 @@
+y: MODULE
+
+<> USE_SEIZE_FILE "x.grt" <>
+SEIZE a_ps;
+
+p: PROC ();
+
+  DCL xx a_ps;
+
+  xx := [a, b];
+END p;
+
+p();
+
+END y;
-- 
cgit v1.1