old-cross-binutils/gdb/testsuite/gdb.chill/pr-5016.ch
Per Bothner 16654bbe99 * pr-5016.ch, pr-5016.exp, Makefile.in: New testcase.
* Makefile.in (.exe.check):  New rule, to run just one test.
1994-09-06 20:23:16 +00:00

24 lines
410 B
Text

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;
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;