389       gfc_expr *new_expr;  in copy_walk_reduction_arg()  local
393       new_expr = gfc_get_expr ();  in copy_walk_reduction_arg()
394       new_expr->expr_type = EXPR_ARRAY;  in copy_walk_reduction_arg()
395       new_expr->ts = e->ts;  in copy_walk_reduction_arg()
396       new_expr->where = e->where;  in copy_walk_reduction_arg()
397       new_expr->rank = 1;  in copy_walk_reduction_arg()
400       new_expr->value.constructor = newbase;  in copy_walk_reduction_arg()
403       fcn = new_expr;  in copy_walk_reduction_arg()
441   gfc_expr *res, *new_expr;  in callback_reduction()  local
514       new_expr = gfc_get_expr ();  in callback_reduction()
515       new_expr->ts = fn->ts;  in callback_reduction()
516       new_expr->expr_type = EXPR_OP;  in callback_reduction()
517       new_expr->rank = fn->rank;  in callback_reduction()
518       new_expr->where = fn->where;  in callback_reduction()
519       new_expr->value.op.op = op;  in callback_reduction()
520       new_expr->value.op.op1 = res;  in callback_reduction()
521       new_expr->value.op.op2 = copy_walk_reduction_arg (c, fn);  in callback_reduction()
522       res = new_expr;  in callback_reduction()
1610       gfc_expr *new_expr;  in optimize_binop_array_assignment()  local
1621       new_expr = gfc_copy_expr (c->expr1);  in optimize_binop_array_assignment()
1623       *rhs = new_expr;  in optimize_binop_array_assignment()
1754   gfc_expr *new_expr;  in combine_array_constructor()  local
1838       new_expr = gfc_get_expr ();  in combine_array_constructor()
1839       new_expr->ts = e->ts;  in combine_array_constructor()
1840       new_expr->expr_type = EXPR_OP;  in combine_array_constructor()
1841       new_expr->rank = c->expr->rank;  in combine_array_constructor()
1842       new_expr->where = c->expr->where;  in combine_array_constructor()
1843       new_expr->value.op.op = e->value.op.op;  in combine_array_constructor()
1847 	  new_expr->value.op.op1 = gfc_copy_expr (scalar);  in combine_array_constructor()
1848 	  new_expr->value.op.op2 = gfc_copy_expr (c->expr);  in combine_array_constructor()
1852 	  new_expr->value.op.op1 = gfc_copy_expr (c->expr);  in combine_array_constructor()
1853 	  new_expr->value.op.op2 = gfc_copy_expr (scalar);  in combine_array_constructor()
1856       new_c = gfc_constructor_append_expr (&newbase, new_expr, &(e->where));  in combine_array_constructor()