/**********************************************************************
 *
 * SAC bug report: arti.sacbugreport
 *
 **********************************************************************
 *
 * Automatically generated on Wed Jul 21 18:23:46 BST 2010
 *
 * using sac2c v1.00-beta (Haggis And Apple) rev 16933 for linux-gnu_i686
 * built Wed Jul 21 17:49:47 BST 2010.
 * by user nkk on host obelix for linux-gnu.
 *
 * The compiler was called by
 *  sac2c -t sl_mta -o arti arti.sac -v3
 *
 * The compiler crashed in
 *  phase: wlt (Transforming with-loop representation)
 *  sub phase: wlsd (MUTC Splitting withloops by dimensions)
 *
 * What follows is the contents of arti.sac.
 *
 **********************************************************************/

use Array: all;
use StdIO: all;
use MutcBenchmarking : all;

int main()
{
  vect = FibreScanIntArray();
  interval = getInterval( "workRC");
  
  startRC( interval);
  result =with {
                ( . <= [i] <= . ) : foo(i,vect);
               }: genarray(shape(vect), 0);
  endRC( interval);

  FibrePrint( result);
  printResult(interval);
  
  return(0);
}

int foo( int i,int[.] vect)
{
  r = 0;
  for(j=0; j < vect[[i]]; j++)
  {
    r = r+1;
  }
  return (r);
}



/**********************************************************************
 *
 * End of bug report
 *
 **********************************************************************/