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

   1 x: module
   2
   3 synmode aset = SET (stopped, moving);
   4
   5 DCL xyz aset;
   6
   7 xyz := moving;
   8 xyz := SUCC (xyz);
   9
  10 END x;