gdb/testsuite/gdb.chill/tuples.ch

   1 x: MODULE
   2
   3 SYNMODE m_arri = ARRAY(1:5) INT;
   4 DCL v_arri m_arri := [ -1, -2, -3, -4, -5 ];
   5
   6 SYNMODE m_arrui = ARRAY(1:5) UINT;
   7 DCL v_arrui m_arrui := [ 1, 2, 3, 4, 5 ];
   8
   9 SYNMODE r1 = RANGE (1:5);
  10 SYNMODE m_arrb = ARRAY(r1) BYTE;
  11 DCL v_arrb m_arrb := [ -3, -4, -5, -6, -7 ];
  12
  13 SYNMODE m_arrub = ARRAY(r1) UBYTE;
  14 DCL v_arrub m_arrub := [ 3, 4, 5, 6, 7 ];
  15
  16 SYNMODE m_arrc = ARRAY (1:5) CHAR;
  17 DCL v_arrc m_arrc := [ '1', '2', '3', '4', '5' ];
  18
  19 SYNMODE m_ps = POWERSET r1;
  20 DCL v_ps m_ps := [ 1, 3, 5 ];
  21
  22 DCL v_cv CHARS(20) VARYING := "foo";
  23
  24 SYNMODE m_arrbool = ARRAY(r1) BOOL;
  25 DCL v_arrbool m_arrbool := [ true, false, true, false, true ];
  26
  27 DCL j r1 := 4;
  28
  29 DCL i INT;
  30
  31 i := 0;
  32
  33 END x;