4661   gfc_expr *init_expr;  in gfc_build_init_expr()  local
4664   init_expr = gfc_get_constant_expr (ts->type, ts->kind, where);  in gfc_build_init_expr()
4684         mpz_set_si (init_expr->value.integer,  in gfc_build_init_expr()
4688           gfc_free_expr (init_expr);  in gfc_build_init_expr()
4689           init_expr = NULL;  in gfc_build_init_expr()
4697           init_expr->is_snan = 1;  in gfc_build_init_expr()
4700           mpfr_set_nan (init_expr->value.real);  in gfc_build_init_expr()
4704           mpfr_set_inf (init_expr->value.real, 1);  in gfc_build_init_expr()
4708           mpfr_set_inf (init_expr->value.real, -1);  in gfc_build_init_expr()
4712           mpfr_set_ui (init_expr->value.real, 0.0, GFC_RND_MODE);  in gfc_build_init_expr()
4716           gfc_free_expr (init_expr);  in gfc_build_init_expr()
4717           init_expr = NULL;  in gfc_build_init_expr()
4726           init_expr->is_snan = 1;  in gfc_build_init_expr()
4729           mpfr_set_nan (mpc_realref (init_expr->value.complex));  in gfc_build_init_expr()
4730           mpfr_set_nan (mpc_imagref (init_expr->value.complex));  in gfc_build_init_expr()
4734           mpfr_set_inf (mpc_realref (init_expr->value.complex), 1);  in gfc_build_init_expr()
4735           mpfr_set_inf (mpc_imagref (init_expr->value.complex), 1);  in gfc_build_init_expr()
4739           mpfr_set_inf (mpc_realref (init_expr->value.complex), -1);  in gfc_build_init_expr()
4740           mpfr_set_inf (mpc_imagref (init_expr->value.complex), -1);  in gfc_build_init_expr()
4744           mpc_set_ui (init_expr->value.complex, 0, GFC_MPC_RND_MODE);  in gfc_build_init_expr()
4748           gfc_free_expr (init_expr);  in gfc_build_init_expr()
4749           init_expr = NULL;  in gfc_build_init_expr()
4756         init_expr->value.logical = 0;  in gfc_build_init_expr()
4758         init_expr->value.logical = 1;  in gfc_build_init_expr()
4761           gfc_free_expr (init_expr);  in gfc_build_init_expr()
4762           init_expr = NULL;  in gfc_build_init_expr()
4774           init_expr->value.character.length = char_len;  in gfc_build_init_expr()
4775           init_expr->value.character.string = gfc_get_wide_string (char_len+1);  in gfc_build_init_expr()
4777             init_expr->value.character.string[i]  in gfc_build_init_expr()
4782           gfc_free_expr (init_expr);  in gfc_build_init_expr()
4783           init_expr = NULL;  in gfc_build_init_expr()
4785       if (!init_expr  in gfc_build_init_expr()
4790           init_expr = gfc_get_expr ();  in gfc_build_init_expr()
4791           init_expr->where = *where;  in gfc_build_init_expr()
4792           init_expr->ts = *ts;  in gfc_build_init_expr()
4793           init_expr->expr_type = EXPR_FUNCTION;  in gfc_build_init_expr()
4794           init_expr->value.function.isym =  in gfc_build_init_expr()
4796           init_expr->value.function.name = "repeat";  in gfc_build_init_expr()
4803           init_expr->value.function.actual = arg;  in gfc_build_init_expr()
4808      gfc_free_expr (init_expr);  in gfc_build_init_expr()
4809      init_expr = NULL;  in gfc_build_init_expr()
4812   return init_expr;  in gfc_build_init_expr()