From: Peter Broadbery <peterb>
Date: Mon, 17 Jun 96 15:48:55 BST
Received: from co.uk (nags8) by nags2.nag.co.uk (4.1/UK-2.1)
	id AA02810; Mon, 17 Jun 96 15:48:56 BST
To: ax-bugs

Subject: fixbug
By: pab
Fixed: bug619.as
--* From BMT%WATSON.vnet.ibm.com@yktvmv.watson.ibm.com  Mon May  2 16:40:13 1994
--* Received: from yktvmv.watson.ibm.com by watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA34159; Mon, 2 May 1994 16:40:13 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 8347; Mon, 02 May 94 16:40:13 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.BMT.NOTE.VAGENT2.3829.May.02.16:40:13.-0400>
--*           for asbugs@watson; Mon, 02 May 94 16:40:13 -0400
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 3823; Mon, 2 May 1994 16:40:12 EDT
--* Received: from watson.ibm.com by yktvmv.watson.ibm.com
--*    (IBM VM SMTP V2R3) with TCP; Mon, 02 May 94 16:40:12 EDT
--* Received: by watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA13042; Mon, 2 May 1994 16:42:07 -0400
--* Date: Mon, 2 May 1994 16:42:07 -0400
--* From: bmt@watson.ibm.com
--* X-External-Networks: yes
--* Message-Id: <9405022042.AA13042@watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [2] integer iterations compile but gets errors at runtime [htest5.as][35.0]

--@ Bug Number:  bug619.as 
--@ Fixed  by:  pab   
--@ Tested by:  ../tests/t619.as 
--@ Summary:    Added handling for Commas appearing in types (to genfoam) 


#include "axiom.as"

testpack: with (f: SingleInteger -> SingleInteger) == add
  import from Segment SingleInteger
  f(s:SingleInteger):SingleInteger ==
    sum:SingleInteger:=0
    for i in 1..s repeat sum := sum+i
    sum