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

   1
   2 PR_5020: MODULE
   3   dummy_pr_5020: PROC ();
   4   END;
   5   NEWMODE x = STRUCT (l LONG, b BOOL);
   6   NEWMODE aset = SET (aa, bb);
   7
   8   DCL y ARRAY ('a':'b') x;
   9   DCL setarr ARRAY (aset) x;
  10   DCL intarr ARRAY(10:11) x;
  11   DCL boolarr ARRAY (BOOL) x;
  12
  13   y('a').l, setarr(aa).l, intarr(10).l, boolarr(FALSE).l := 10;
  14   y('a').b, setarr(aa).b, intarr(10).b, boolarr(FALSE).b := TRUE;
  15   y('b').l, setarr(bb).l, intarr(11).l, boolarr(TRUE).l := 111;
  16   y('b').b, setarr(bb).b, intarr(11).b, boolarr(TRUE).b := FALSE;
  17
  18   dummy_pr_5020 ();
  19 END;