--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Tue Aug 23 09:58:26 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA24611; Tue, 23 Aug 1994 09:58:26 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 5659; Tue, 23 Aug 94 09:58:30 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.MANNHART.NOTE.YKTVMV.5067.Aug.23.09:58:27.-0400>
--*           for asbugs@watson; Tue, 23 Aug 94 09:58:29 -0400
--* Received: from inf.ethz.ch by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Tue, 23 Aug 94 09:58:27 EDT
--* Received: from vinci.inf.ethz.ch (mannhart@vinci.inf.ethz.ch [129.132.12.46]) by inf.ethz.ch (8.6.9/8.6.9) with ESMTP id PAA13573 for <asbugs@watson.ibm.com>; Tue, 23 Aug 1994 15:58:20 +0200
--* From: Niklaus Mannhart <mannhart@inf.ethz.ch>
--* Received: (mannhart@localhost) by vinci.inf.ethz.ch (8.6.8/8.6.6) id PAA15310 for asbugs@watson.ibm.com; Tue, 23 Aug 1994 15:58:19 +0200
--* Date: Tue, 23 Aug 1994 15:58:19 +0200
--* Message-Id: <199408231358.PAA15310@vinci.inf.ethz.ch>
--* To: asbugs@watson.ibm.com
--* Subject: [3] Bug in new(n) of type PrimitiveArray(..) [bug.as][0.36.0 for Sparc [=]]

--@ Fixed  by:  SSD   Wed Nov 23 09:31:28 EST 1994 
--@ Tested by:  none 
--@ Summary:    Not a bug. The initial contents of q are undefined, so 'q.3.a := 4' references thru a NULL pointer a runtime. 

#include "aslib.as"

macro SI == SingleInteger;

q: PrimitiveArray (Record (a: SI, b: SI)) := new (10);
r: PrimitiveArray (Record (a: SI, b: SI)) := new (10, record(0,0));
i: SI := 5;

q.3.a := 4;   -- compiles but crashes at run time
q.i.b := 5;   -- compiles but crashes at run time

r.3.a := 4;   -- runs fine
r.i.b := 5;   -- runs fine