mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-03 04:12:10 +08:00
25 lines
410 B
Plaintext
25 lines
410 B
Plaintext
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;
|