(*************
Return-Path: najork@src.dec.com
Received: by jumbo.pa.dec.com; id AA16069; Mon, 20 Jul 92 19:43:28 -0700
Received: by oak.pa.dec.com; id AA21934; Mon, 20 Jul 92 19:43:26 -0700
Date: Mon, 20 Jul 92 19:43:26 -0700
From: najork (Marc Najork)
Message-Id: <9207210243.AA21934@oak.pa.dec.com>
To: kalsow
Subject: Bug in m3 ?
Cc: najork

I believe there is a bug in m3. Given the (incorrect) program 
***************)

	MODULE foo EXPORTS Main;
	
	TYPE 
	  T = RECORD
	    a : BOOLEAN;
	    a : BOOLEAN;
	  END;
	
	BEGIN 
	END foo.

(********************
m3 gets a runtime error:

	"./foo.m3", line 6: symbol redefined (a)
	
	
	***
	*** runtime error:
	***    Value out of range
	***    file "RecordType.m3", line 161
	***
	
	
	Fatal Error: program "/proj/m3/lib.mips/m3compiler" got fatal signal 3
	
	
	Fatal Error: program "/proj/m3/lib.mips/m3compiler" got fatal signal 3
	
	*** Error code 255
	
	Stop.

dumps core and dies. 

-- Marc

*************************)