[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.chill / pr-5016.ch

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;
Commit	Line	Data
c906108c SS	1	vector: MODULE
	2
	3	SYNMODE m_index = RANGE(1:10);
	4	NEWMODE vector = ARRAY (m_index) INT;
	5
	6	DCL a, b, c vector;
	7
	8	dump: PROC( a vector LOC, c CHAR );
	9	DCL i m_index := 5;
	10	DO FOR i IN m_index;
	11	WRITETEXT( STDOUT, "%C(%C)=%C ", c, i, a(i) );
	12	OD;
	13	WRITETEXT( STDOUT, "%/" );
	14	END dump;
	15
	16	a := vector [ 1, -1, 2, -2, 3, -3, 4, -4, 5, -5 ];
	17	b := a;
	18	b(4) := 4;
	19	b(7) := 7;
	20	c := vector [(*): 0];
	21
	22	dump(a,'a');
	23
	24	END vector;