gdb/testsuite/gdb.chill/enum.ch

   1 hugo: module
   2
   3   synmode m_set = set (a, b, c, d, e, f, g, h, i);
   4   dcl x long;
   5   dcl y m_set;
   6
   7   writetext (stdout, "done.%/");
   8
   9 end hugo;