std::string loop_src_var_name = "";

ASR::expr_t *loop_end = nullptr, *loop_start = nullptr, *inc = nullptr;

ASR::expr_t *for_iter_type = nullptr;

ASR::expr_t *loop_src_var = nullptr;

if (AST::is_a<AST::Call_t>(*x.m_iter)) {

AST::Call_t *c = AST::down_cast<AST::Call_t>(x.m_iter);

std::string call_name;

if (ASR::is_a<ASR::Dict_t>(*loop_src_var_ttype) ||

ASR::is_a<ASR::Set_t>(*loop_src_var_ttype)) {

loop_src_var = ASRUtils::EXPR(

ASR::make_Var_t(al, x.base.base.loc, current_scope->resolve_symbol(loop_src_var_name)));

is_explicit_iterator_required = false;

for_each = true;

} else {

visit_Subscript(*sbt);

ASR::expr_t *target = ASRUtils::EXPR(tmp);

ASR::ttype_t *loop_src_var_ttype = ASRUtils::expr_type(target);

if (ASR::is_a<ASR::Dict_t>(*loop_src_var_ttype) ||

ASR::is_a<ASR::Set_t>(*loop_src_var_ttype)) {

loop_src_var = target;

is_explicit_iterator_required = false;

for_each = true;

} else {

// Create a temporary variable that will contain the evaluated value of Subscript

std::string tmp_assign_name = current_scope->get_unique_name("__tmp_assign_for_loop", false);

SetChar variable_dependencies_vec;

variable_dependencies_vec.reserve(al, 1);

ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, loop_src_var_ttype);

ASR::asr_t* tmp_assign_variable = ASR::make_Variable_t(al, sbt->base.base.loc, current_scope,

s2c(al, tmp_assign_name), variable_dependencies_vec.p, variable_dependencies_vec.size(),

ASR::intentType::Local, nullptr, nullptr, ASR::storage_typeType::Default,

loop_src_var_ttype, nullptr, ASR::abiType::Source, ASR::accessType::Public, ASR::presenceType::Required, false

);

ASR::symbol_t *tmp_assign_variable_sym = ASR::down_cast<ASR::symbol_t>(tmp_assign_variable);

current_scope->add_symbol(tmp_assign_name, tmp_assign_variable_sym);

// Assign the Subscript expr to temporary variable

ASR::asr_t* assign = ASR::make_Assignment_t(al, x.base.base.loc,

ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, tmp_assign_variable_sym)),

target, nullptr);

if (current_body != nullptr) {

current_body->push_back(al, ASRUtils::STMT(assign));

} else {

global_init.push_back(al, assign);

}

loop_src_var_name = tmp_assign_name;

loop_end = for_iterable_helper(loop_src_var_name, x.base.base.loc, explicit_iter_name);

for_iter_type = loop_end;

LCOMPILERS_ASSERT(loop_end);

if (for_each) {

current_scope = parent_scope;

tmp = ASR::make_ForEach_t(al, x.base.base.loc, target, loop_src_var, body.p, body.size());

for_each = false;

return;