diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-8136.ch')
-rw-r--r-- | gdb/testsuite/gdb.chill/pr-8136.ch | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-8136.ch b/gdb/testsuite/gdb.chill/pr-8136.ch new file mode 100644 index 00000000000..b380110eb18 --- /dev/null +++ b/gdb/testsuite/gdb.chill/pr-8136.ch @@ -0,0 +1,34 @@ +-- 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; |