--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Fri Oct 22 11:37:27 1993
--* Received: from yktvmv2.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA26106; Fri, 22 Oct 1993 11:37:27 -0400
--* X-External-Networks: yes
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 6133; Fri, 22 Oct 93 11:44:16 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.BRONSTEI.NOTE.YKTVMV.2059.Oct.22.11:44:14.-0400>
--*           for asbugs@watson; Fri, 22 Oct 93 11:44:16 -0400
--* Received: from bernina.ethz.ch by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Fri, 22 Oct 93 11:44:13 EDT
--* Received: from neptune by bernina.ethz.ch with SMTP inbound id <12659-0@bernina.ethz.ch>; Fri, 22 Oct 1993 16:43:36 +0100
--* From: Manuel Bronstein <bronstei@inf.ethz.ch>
--* Received: from rutishauser.inf.ethz.ch (rutishauser-gw.inf.ethz.ch) by neptune id AA18660; Fri, 22 Oct 93 10:28:17 +0100
--* Date: Fri, 22 Oct 93 10:28:15 +0100
--* Message-Id: <9310220928.AA16754@rutishauser.inf.ethz.ch>
--* Received: from vinci.inf.ethz.ch.rutishauser by rutishauser.inf.ethz.ch id AA16754; Fri, 22 Oct 93 10:28:15 +0100
--* To: asbugs@watson.ibm.com
--* Subject: (Error) Program fault (segmentation violation), suncc version only [foobar.as][32.0]

--@ Fixed  by:  SSD   Wed Nov 2 15:39:48 EST 1994 
--@ Tested by:  none 
--@ Summary:    Segmentation violation no longer appears in the suncc version of v0.37.0. 

-- this produces a segmentation violation with suncc v32, ok on rs3.2 v32.

#include "aslib.as"

Foo(R:BasicType): Category == with
      foo: R -> %

Bar(R:BasicType): Category == Foo R with
      bar: R -> %
      default bar(r:R):% == foo r