Uses the now PIRE alloc with Dim->Program function
forLoop out parameter gets initialized with 0