gcc/testsuite/gm2/iso/fail/bug10.mod - gcc.git - Git at Google

 MODULE bug10 ;

 (* Missing import; Using the element in an expression crashes the compiler. *)
 (* Using the element in an assignment is working. *)

 FROM ChanConsts IMPORT (*read, text,*) FlagSet;

 VAR flags:FlagSet;
 BEGIN
     flags:=read+text;

 END bug10.
	MODULE bug10 ;

	(* Missing import; Using the element in an expression crashes the compiler. *)
	(* Using the element in an assignment is working. *)

	FROM ChanConsts IMPORT (read, text,) FlagSet;

	VAR flags:FlagSet;
	BEGIN
	flags:=read+text;

	END bug10.