use Array: all;


/*
 * This is apex/gewlfAKD, which runs 3X slower with -doawlf 
 * (and -doivecyc) than without it.
 *
 * The Cond_3 LACFUN contains:
 *
 *   _idx_sel( 0, [ x, y]);
 *
 * but CF isn't seeing it.
 *
 */

inline int[*] rhoIII(int[.] x, int y)
{ /* Vector reshape scalar to matrix) */
  zxrho = prod(toi(x)); /* Result element count */
  z = genarray([zxrho], y); /* allocate result */
  z = reshape(toi(x),z);
  return(z);
}


inline int[+] indsx1(int[+] X, int [+] I1, int Yin)
{ /* X[;;nonscalarI;;;]<- scalarY */
 z = toi(X);
 Y = Yin;
 for(i0=0; i0<shape(X)[[0]]; i0++){
   for(i1=0; i1<shape(I1)[[0]]; i1++){
     z[[i0,I1[[i1]]]]=toi(Y);
   }
 }
 return(z);
}

int[*] id( int[*] y)
{ return(y);
}

int main()
{ 
 siz = id( 50);
 mat=rhoIII([ 50,siz],42);
 A_65=iota( 5);
 A_69=indsx1(mat,A_65,666);
 z = sum( A_69);
 StdIO::print(z);
 return(z);
}