gcc/testsuite/gm2/iso/fail/bug10.mod

   1 MODULE bug10 ;
   2
   3 (* Missing import; Using the element in an expression crashes the compiler. *)
   4 (* Using the element in an assignment is working. *)
   5
   6 FROM ChanConsts IMPORT (*read, text,*) FlagSet;
   7
   8 VAR flags:FlagSet;
   9 BEGIN
  10     flags:=read+text;
  11
  12 END bug10.