--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Sat May  8 18:41:33 1993
--* Received: from yktvmv2.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA25008; Sat, 8 May 1993 18:41:33 -0400
--* X-External-Networks: yes
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 4347; Sat, 08 May 93 18:41:56 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SANTAS.NOTE.YKTVMV.7809.May.08.18:41:54.-0400>
--*           for asbugs@watson; Sat, 08 May 93 18:41:56 -0400
--* Received: from bernina.ethz.ch by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Sat, 08 May 93 18:41:54 EDT
--* Received: from neptune by bernina.ethz.ch with SMTP inbound id <3574-0@bernina.ethz.ch>; Sun, 9 May 1993 00:41:46 +0200
--* From: Philip Santas <santas@inf.ethz.ch>
--* Received: from rutishauser.inf.ethz.ch (rutishauser-gw.inf.ethz.ch) by neptune id AA24092; Sun, 9 May 93 00:41:40 +0200
--* Date: Sun, 9 May 93 00:41:38 +0200
--* Message-Id: <9305082241.AA04707@rutishauser.inf.ethz.ch>
--* Received: from ru7.inf.ethz.ch.rutishauser by rutishauser.inf.ethz.ch id AA04707; Sun, 9 May 93 00:41:38 +0200
--* To: asbugs@watson.ibm.com, smwatt@watson.ibm.com
--* Subject: C error report
--* Cc: bronstein

--@ Fixed  by: JMS Wed Oct 13 11:03:48 1993
--@ Tested by: <name of new or existing file in test directory>
--@ Summary:   <One line description of real problem and the fix>



--The program passed A#'s type checking, but the C compiler protested.
--
--Philip
--
--------------passes A#------------------
#include "aslib.as"

Pack: with
    new: ()-> %
 == add
     Rep ==> Record()
     import Rep
     new():% == per []

------------C error report---------------
--"passAS.c", line 152: undefined structure or union
--C compiler failed on generated K+R file.
--File passAS-kr.c not deleted.
--ld: passAS.o: No such file or directory