diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-5016.ch')
-rw-r--r-- | gdb/testsuite/gdb.chill/pr-5016.ch | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-5016.ch b/gdb/testsuite/gdb.chill/pr-5016.ch deleted file mode 100644 index 16f49e8..0000000 --- a/gdb/testsuite/gdb.chill/pr-5016.ch +++ /dev/null @@ -1,24 +0,0 @@ -vector: MODULE - -SYNMODE m_index = RANGE(1:10); -NEWMODE vector = ARRAY (m_index) INT; - -DCL a, b, c vector; - -dump: PROC( a vector LOC, c CHAR ); - DCL i m_index := 5; - DO FOR i IN m_index; - WRITETEXT( STDOUT, "%C(%C)=%C ", c, i, a(i) ); - OD; - WRITETEXT( STDOUT, "%/" ); -END dump; - -a := vector [ 1, -1, 2, -2, 3, -3, 4, -4, 5, -5 ]; -b := a; -b(4) := 4; -b(7) := 7; -c := vector [(*): 0]; - -dump(a,'a'); - -END vector; |