9175   gfc_expr *loc_call;  in build_loc_call()  local
9176   loc_call = gfc_get_expr ();  in build_loc_call()
9177   loc_call->expr_type = EXPR_FUNCTION;  in build_loc_call()
9178   gfc_get_sym_tree ("_loc", gfc_current_ns, &loc_call->symtree, false);  in build_loc_call()
9179   loc_call->symtree->n.sym->attr.flavor = FL_PROCEDURE;  in build_loc_call()
9180   loc_call->symtree->n.sym->attr.intrinsic = 1;  in build_loc_call()
9181   loc_call->symtree->n.sym->result = loc_call->symtree->n.sym;  in build_loc_call()
9182   gfc_commit_symbol (loc_call->symtree->n.sym);  in build_loc_call()
9183   loc_call->ts.type = BT_INTEGER;  in build_loc_call()
9184   loc_call->ts.kind = gfc_index_integer_kind;  in build_loc_call()
9185   loc_call->value.function.isym = gfc_intrinsic_function_by_id (GFC_ISYM_LOC);  in build_loc_call()
9186   loc_call->value.function.actual = gfc_get_actual_arglist ();  in build_loc_call()
9187   loc_call->value.function.actual->expr = sym_expr;  in build_loc_call()
9188   loc_call->where = sym_expr->where;  in build_loc_call()
9189   return loc_call;  in build_loc_call()