--* From BMT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Tue Dec 28 11:09:58 1993
--* Received: from yktvmh.watson.ibm.com by leonardo.watson.ibm.com (AIX 3.2/UCB 5.64/4.03)
--*           id AA09196; Tue, 28 Dec 1993 11:09:58 -0500
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 7143; Tue, 28 Dec 93 11:16:06 EST
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.BMT.NOTE.VAGENT2.2262.Dec.28.11:16:05.-0500>
--*           for asbugs@watson; Tue, 28 Dec 93 11:16:05 -0500
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 2260; Tue, 28 Dec 1993 11:16:05 EST
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Tue, 28 Dec 93 11:16:04 EST
--* Received: from spadserv.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA14730; Tue, 28 Dec 1993 11:15:56 -0500
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA18875; Tue, 28 Dec 1993 11:18:06 -0500
--* Date: Tue, 28 Dec 1993 11:18:06 -0500
--* From: bmt@spadserv.watson.ibm.com
--* X-External-Networks: yes
--* Message-Id: <9312281618.AA18875@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [4] compiler incorrectly complains about 2 meanings for record selector [testas.as][33.4 (current)]

--@ Fixed  by:  SSD   Wed Aug 10 01:22:42 EDT 1994 
--@ Tested by:  none 
--@ Summary:    Earlier fixes to enumeration types associated with records. 
-- PI: now I get: Assertion failed, file "../src/tfsat.c" line 488: abState(abi) == AB_State_HasUnique
-- PI (3/28/94): now is again complaining about 2 meanings for a in (1)

#include "aslib.as"
local s:SingleInteger
u:Record(a:SingleInteger):=[1]
local i:Integer
v:Record(a:Integer):=[1]
s:=u.a  -- (1)
i:=v.a