summaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.chill/pr-8136.ch
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-8136.ch')
-rw-r--r--gdb/testsuite/gdb.chill/pr-8136.ch34
1 files changed, 0 insertions, 34 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-8136.ch b/gdb/testsuite/gdb.chill/pr-8136.ch
deleted file mode 100644
index b380110eb18..00000000000
--- a/gdb/testsuite/gdb.chill/pr-8136.ch
+++ /dev/null
@@ -1,34 +0,0 @@
--- NOTE: This test is used for pr-3134.exp as well as pr-8136.
-func: MODULE
-
-<> USE_SEIZE_FILE "func1.grt" <>
-SEIZE ALL;
-
-NEWMODE m_struct = STRUCT (i LONG, str CHARS(50) VARYING);
-DCL insarr ARRAY (1:10) INT;
-
-DCL setrange m_setrange := e5;
-
-DCL ps m_ps := [ e3, e7:e9 ];
-DCL range_ps m_rangeps := [ 2, 3, 4, 28 ];
-
-p1: PROC (first INT IN, last INT IN, s m_struct IN);
-
- DCL foo LONG := 3;
-
- startall: PROC ()
- DO FOR i := first to last;
- insarr(i) := i;
- OD;
- DO FOR i := first TO last;
- WRITETEXT (stdout, "insarr(%C) := %C%/", i, insarr(i));
- OD;
- END startall;
-
- startall ();
-
-END p1;
-
-p1 (LOWER (insarr), UPPER (insarr), [ 10, "This is a string." ]);
-
-END func;