gdb/testsuite/gdb.chill/pr-5016.ch

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