summaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.chill/pr-6632.ch
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-6632.ch')
-rw-r--r--gdb/testsuite/gdb.chill/pr-6632.ch31
1 files changed, 0 insertions, 31 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-6632.ch b/gdb/testsuite/gdb.chill/pr-6632.ch
deleted file mode 100644
index b82c7ae1c88..00000000000
--- a/gdb/testsuite/gdb.chill/pr-6632.ch
+++ /dev/null
@@ -1,31 +0,0 @@
-markus: MODULE
-
-<> USE_SEIZE_FILE "pr-6632-grt.grt" <>
-SEIZE m_dummy, m_dummy_range;
-
-DCL v m_dummy_range;
-
-NEWMODE is_str_descr = STRUCT (p PTR,
- l INT,
- flag STRUCT (x UBYTE,
- y SET (aa, bb, cc, dd, ee, ff)));
-DCL des is_str_descr;
-
-NEWMODE is_cb_debug = STRUCT (i INT,
- channel m_dummy_range,
- p PTR);
-NEWMODE is_cb_debug_array = ARRAY (0:20) is_cb_debug;
-DCL cb_debug is_cb_debug_array;
-DCL cb_debug_index INT := 0;
-
-p: PROC (pp is_str_descr IN, x m_dummy_range IN)
- DO WITH cb_debug(cb_debug_index);
- channel := x;
- OD;
-END p;
-
-p (des, dummy_10);
-WRITETEXT (stdout, "cb_debug(%C).channel := %C%/",
- cb_debug_index, cb_debug(cb_debug_index).channel);
-
-END markus;