--* From SMWATT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Mon Sep 27 11:04:29 1993
--* Received: from yktvmh.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA21713; Mon, 27 Sep 1993 11:04:29 -0400
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 8253; Mon, 27 Sep 93 11:10:01 EDT
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SMWATT.NOTE.VAGENT2.2903.Sep.27.11:10:00.-0400>
--*           for asbugs@watson; Mon, 27 Sep 93 11:10:01 -0400
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 2901; Mon, 27 Sep 1993 11:09:59 EDT
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Mon, 27 Sep 93 11:09:59 EDT
--* Received: from spadserv.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA68676; Mon, 27 Sep 1993 11:09:14 -0400
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA28903; Mon, 27 Sep 1993 11:15:36 -0400
--* Date: Mon, 27 Sep 1993 11:15:36 -0400
--* From: smwatt@spadserv.watson.ibm.com (Stephen Watt)
--* X-External-Networks: yes
--* Message-Id: <9309271515.AA28903@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: optimized top level prog => seg fault [asharp -Fc -Fasf -Fx -O t_sum_as.as] [t_sum_as.as][v30.6+]

--@ Fixed  by:  PI   Sun Mar 20 20:12:36 EST 1994 
--@ Tested by:  none 
--@ Summary:    no more a bug. 


#include "aslib.as"

import from SingleInteger

REPEAT ==> 50

N := 5_000_000

for j in 1..REPEAT repeat
	form := if even? N then N quo 2 * (N+1) else (N+1) quo 2 * N
	tot  := 0
	for i in 0..N repeat tot := tot + i
	print(tot)(" = ")(form)()