
Input code\ldots
\begin{verbatim}
  DIMENSION b (n)
  DIMENSION a (n, n)

  FORALL (i = 1 : n, j = 1 : n)
    a (i, j) = fun1 (i) + (b (j) + fun2 (j))
  ENDFORALL
\end{verbatim}
``Translation''\ldots
\begin{verbatim}
  ALIGN temp2 WITH b
  ALIGN temp3 WITH a (*, :)
  ALIGN temp1 WITH a (:, *)
 
  FORALL (i = 1 : n) temp1 (i) = fun1 (i)
  FORALL (j = 1 : n) temp2 (j) = b (j) + fun2 (j)
  temp3 = temp2                             ! remapping
  FORALL (i = 1 : n, j = 1 : n)
    a (i, j) = temp1 (i) + temp3 (j)
  ENDFORALL
\end{verbatim}

