gcc/fortran/expr.c

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