gdb/testsuite/gdb.chill/powerset.ch

   1 --
   2 -- check powerset operators and built-ins
   3 --
   4
   5 ps: MODULE
   6
   7 SYNMODE m_ps1 = POWERSET ULONG (0:8);
   8 DCL v_ps1 m_ps1 INIT := [1,3,5,7];
   9
  10 SYNMODE m_ps2 = POWERSET LONG (-100:100);
  11 DCL v_ps2 m_ps2 INIT := [ -100:-95, -1:1, 95:100];
  12
  13 SYNMODE m_set = SET (aa, bb, cc, dd, ee, ff, gg, hh, ii, jj);
  14 SYNMODE m_ps3 = POWERSET m_set;
  15 DCL v_ps3 m_ps3 INIT := [bb, dd, ff, ii];
  16
  17 SYNMODE m_ps4 = POWERSET CHAR(' ':'z');
  18 DCL v_ps4 m_ps4 INIT := [ '.', ',', 'A':'F', 'x':'z' ];
  19
  20 SYNMODE m_ps5 = POWERSET BOOL;
  21 DCL v_ps5 m_ps5 INIT := [ FALSE ];
  22 DCL v_ps51 m_ps5 INIT := [ ];
  23
  24 SYNMODE m_int_range = INT(-100:100);
  25 SYNMODE m_int_subrange = m_int_range(-50:50);
  26 SYNMODE m_ps6 = POWERSET m_int_subrange;
  27 DCL v_ps6 m_ps6 INIT := [ LOWER(m_int_subrange):UPPER(m_int_subrange) ];
  28
  29 DCL x INT;
  30
  31 x := 25;
  32
  33 END ps;