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

   1 hugo : module
   2
   3   synmode a = range(1:10);
   4   synmode p = powerset a;
   5
   6   synmode s = set (sa, sb, sc);
   7   synmode s_ps = powerset s;
   8
   9   x: proc (ps p);
  10     dcl i a;
  11     do for i in ps;
  12       writetext (stdout, "%C ", i);
  13     od;
  14     writetext(stdout, "%/");
  15   end x;
  16
  17   y : proc (ps s_ps);
  18     dcl i s;
  19     do for i in ps;
  20       writetext (stdout, "%C ", i);
  21     od;
  22     writetext(stdout, "%/");
  23   end y;
  24
  25   dummy: proc ();
  26   end dummy;
  27
  28   x([1,2,3]);
  29   y([sa, sc]);
  30   dummy ();
  31
  32 end hugo;