f->value.function.name
= gfc_get_string (PREFIX ("%s%s_%c%d"), prefix, name,
- gfc_type_letter (array->ts.type), array->ts.kind);
+ gfc_type_letter (array->ts.type),
+ gfc_type_abi_kind (&array->ts));
}
f->ts.type = BT_REAL;
f->value.function.name
- = gfc_get_string ("__abs_%c%d", gfc_type_letter (a->ts.type), a->ts.kind);
+ = gfc_get_string ("__abs_%c%d", gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
f->value.function.name
= gfc_get_string ("__%schar_%d_%c%d", is_achar ? "a" : "", f->ts.kind,
- gfc_type_letter (x->ts.type), x->ts.kind);
+ gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__acos_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__acos_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
f->ts = x->ts;
f->value.function.name
= gfc_get_string ("__acosh_%c%d", gfc_type_letter (x->ts.type),
- x->ts.kind);
+ gfc_type_abi_kind (&x->ts));
}
f->ts.kind = x->ts.kind;
f->value.function.name
= gfc_get_string ("__aimag_%c%d", gfc_type_letter (x->ts.type),
- x->ts.kind);
+ gfc_type_abi_kind (&x->ts));
}
}
f->value.function.name
- = gfc_get_string ("__and_%c%d", gfc_type_letter (i->ts.type), f->ts.kind);
+ = gfc_get_string ("__and_%c%d", gfc_type_letter (i->ts.type),
+ gfc_type_abi_kind (&f->ts));
}
/* The resolved name is only used for specific intrinsics where
the return kind is the same as the arg kind. */
f->value.function.name
- = gfc_get_string ("__aint_%c%d", gfc_type_letter (a->ts.type), a->ts.kind);
+ = gfc_get_string ("__aint_%c%d", gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
f->value.function.name
= gfc_get_string (PREFIX ("all_%c%d"), gfc_type_letter (mask->ts.type),
- mask->ts.kind);
+ gfc_type_abi_kind (&mask->ts));
}
the return kind is the same as the arg kind. */
f->value.function.name
= gfc_get_string ("__anint_%c%d", gfc_type_letter (a->ts.type),
- a->ts.kind);
+ gfc_type_abi_kind (&a->ts));
}
f->value.function.name
= gfc_get_string (PREFIX ("any_%c%d"), gfc_type_letter (mask->ts.type),
- mask->ts.kind);
+ gfc_type_abi_kind (&mask->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__asin_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__asin_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
void
f->ts = x->ts;
f->value.function.name
= gfc_get_string ("__asinh_%c%d", gfc_type_letter (x->ts.type),
- x->ts.kind);
+ gfc_type_abi_kind (&x->ts));
}
void
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__atan_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__atan_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
void
f->ts = x->ts;
f->value.function.name
= gfc_get_string ("__atanh_%c%d", gfc_type_letter (x->ts.type),
- x->ts.kind);
+ gfc_type_abi_kind (&x->ts));
}
void
f->ts = x->ts;
f->value.function.name
= gfc_get_string ("__atan2_%c%d", gfc_type_letter (x->ts.type),
- x->ts.kind);
+ gfc_type_abi_kind (&x->ts));
}
if (f->value.function.isym->id == GFC_ISYM_JN2)
f->value.function.name = gfc_get_string (PREFIX ("bessel_jn_r%d"),
- f->ts.kind);
+ gfc_type_abi_kind (&f->ts));
else
f->value.function.name = gfc_get_string (PREFIX ("bessel_yn_r%d"),
- f->ts.kind);
+ gfc_type_abi_kind (&f->ts));
}
? gfc_default_integer_kind : mpz_get_si (kind->value.integer);
f->value.function.name
= gfc_get_string ("__ceiling_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type), a->ts.kind);
+ gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
if (y == NULL)
f->value.function.name
= gfc_get_string ("__cmplx0_%d_%c%d", f->ts.kind,
- gfc_type_letter (x->ts.type), x->ts.kind);
+ gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
else
f->value.function.name
= gfc_get_string ("__cmplx1_%d_%c%d_%c%d", f->ts.kind,
- gfc_type_letter (x->ts.type), x->ts.kind,
- gfc_type_letter (y->ts.type), y->ts.kind);
+ gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts),
+ gfc_type_letter (y->ts.type),
+ gfc_type_abi_kind (&y->ts));
}
f->ts.kind = kind;
f->value.function.name
= gfc_get_string ("__cmplx1_%d_%c%d_%c%d", f->ts.kind,
- gfc_type_letter (x->ts.type), x->ts.kind,
- gfc_type_letter (y->ts.type), y->ts.kind);
+ gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts),
+ gfc_type_letter (y->ts.type),
+ gfc_type_abi_kind (&y->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__cos_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__cos_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__cosh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__cosh_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
resolve_mask_arg (mask);
f->value.function.name
- = gfc_get_string (PREFIX ("count_%d_%c"), f->ts.kind,
+ = gfc_get_string (PREFIX ("count_%d_%c"), gfc_type_abi_kind (&f->ts),
gfc_type_letter (mask->ts.type));
}
f->ts.type = BT_REAL;
f->ts.kind = gfc_default_double_kind;
f->value.function.name
- = gfc_get_string ("__dble_%c%d", gfc_type_letter (a->ts.type), a->ts.kind);
+ = gfc_get_string ("__dble_%c%d", gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
}
f->value.function.name
- = gfc_get_string ("__dim_%c%d", gfc_type_letter (f->ts.type), f->ts.kind);
+ = gfc_get_string ("__dim_%c%d", gfc_type_letter (f->ts.type),
+ gfc_type_abi_kind (&f->ts));
}
f->ts = temp.ts;
f->value.function.name
= gfc_get_string (PREFIX ("dot_product_%c%d"),
- gfc_type_letter (f->ts.type), f->ts.kind);
+ gfc_type_letter (f->ts.type),
+ gfc_type_abi_kind (&f->ts));
}
{
f->ts.kind = gfc_default_double_kind;
f->ts.type = BT_REAL;
- f->value.function.name = gfc_get_string ("__dprod_r%d", f->ts.kind);
+ f->value.function.name = gfc_get_string ("__dprod_r%d",
+ gfc_type_abi_kind (&f->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__exp_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__exp_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
? gfc_default_integer_kind : mpz_get_si (kind->value.integer);
f->value.function.name
= gfc_get_string ("__floor%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type), a->ts.kind);
+ gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
gfc_resolve_hypot (gfc_expr *f, gfc_expr *x, gfc_expr *y ATTRIBUTE_UNUSED)
{
f->ts = x->ts;
- f->value.function.name = gfc_get_string ("__hypot_r%d", x->ts.kind);
+ f->value.function.name = gfc_get_string ("__hypot_r%d",
+ gfc_type_abi_kind (&x->ts));
}
? gfc_default_integer_kind : mpz_get_si (kind->value.integer);
f->value.function.name
= gfc_get_string ("__int_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type), a->ts.kind);
+ gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
f->ts.kind = 2;
f->value.function.name
= gfc_get_string ("__int_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type), a->ts.kind);
+ gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
f->ts.kind = 8;
f->value.function.name
= gfc_get_string ("__int_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type), a->ts.kind);
+ gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
f->ts.kind = 4;
f->value.function.name
= gfc_get_string ("__int_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type), a->ts.kind);
+ gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__log_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__log_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
f->ts = x->ts;
f->value.function.name
= gfc_get_string ("__log10_%c%d", gfc_type_letter (x->ts.type),
- x->ts.kind);
+ gfc_type_abi_kind (&x->ts));
}
f->value.function.name
= gfc_get_string ("__logical_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type), a->ts.kind);
+ gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
f->value.function.name
= gfc_get_string (PREFIX ("matmul_%c%d"), gfc_type_letter (f->ts.type),
- f->ts.kind);
+ gfc_type_abi_kind (&f->ts));
}
}
f->value.function.name
- = gfc_get_string (name, gfc_type_letter (f->ts.type), f->ts.kind);
+ = gfc_get_string (name, gfc_type_letter (f->ts.type),
+ gfc_type_abi_kind (&f->ts));
}
f->value.function.name
= gfc_get_string (PREFIX ("%s%d_%d_%c%d"), name, d_num, f->ts.kind,
- gfc_type_letter (array->ts.type), array->ts.kind);
+ gfc_type_letter (array->ts.type),
+ gfc_type_abi_kind (&array->ts));
if (kind)
fkind = mpz_get_si (kind->value.integer);
f->value.function.name
= gfc_get_string (PREFIX ("%s%d_%c%d"), name, d_num,
- gfc_type_letter (array->ts.type, true), array->ts.kind);
+ gfc_type_letter (array->ts.type, true),
+ gfc_type_abi_kind (&array->ts));
/* We only have a single library function, so we need to convert
here. If the function is resolved from within a convert
if (array->ts.type != BT_CHARACTER)
f->value.function.name
= gfc_get_string (PREFIX ("%s_%c%d"), name,
- gfc_type_letter (array->ts.type), array->ts.kind);
+ gfc_type_letter (array->ts.type),
+ gfc_type_abi_kind (&array->ts));
else
f->value.function.name
= gfc_get_string (PREFIX ("%s%d_%c%d"), name, f->rank != 0,
- gfc_type_letter (array->ts.type), array->ts.kind);
+ gfc_type_letter (array->ts.type),
+ gfc_type_abi_kind (&array->ts));
}
f->ts = tsource->ts;
f->value.function.name
= gfc_get_string ("__merge_%c%d", gfc_type_letter (tsource->ts.type),
- tsource->ts.kind);
+ gfc_type_abi_kind (&tsource->ts));
}
f->value.function.name
= gfc_get_string (PREFIX ("%s%d_%d_%c%d"), name, d_num, f->ts.kind,
- gfc_type_letter (array->ts.type), array->ts.kind);
+ gfc_type_letter (array->ts.type),
+ gfc_type_abi_kind (&array->ts));
if (fkind != f->ts.kind)
{
if (array->ts.type != BT_CHARACTER)
f->value.function.name
= gfc_get_string (PREFIX ("%s_%c%d"), name,
- gfc_type_letter (array->ts.type), array->ts.kind);
+ gfc_type_letter (array->ts.type),
+ gfc_type_abi_kind (&array->ts));
else
f->value.function.name
= gfc_get_string (PREFIX ("%s%d_%c%d"), name, f->rank != 0,
- gfc_type_letter (array->ts.type), array->ts.kind);
+ gfc_type_letter (array->ts.type),
+ gfc_type_abi_kind (&array->ts));
}
}
f->value.function.name
- = gfc_get_string ("__mod_%c%d", gfc_type_letter (f->ts.type), f->ts.kind);
+ = gfc_get_string ("__mod_%c%d", gfc_type_letter (f->ts.type),
+ gfc_type_abi_kind (&f->ts));
}
f->value.function.name
= gfc_get_string ("__modulo_%c%d", gfc_type_letter (f->ts.type),
- f->ts.kind);
+ gfc_type_abi_kind (&f->ts));
}
void
f->ts = a->ts;
f->value.function.name
= gfc_get_string ("__nearest_%c%d", gfc_type_letter (a->ts.type),
- a->ts.kind);
+ gfc_type_abi_kind (&a->ts));
}
void
}
f->value.function.name
- = gfc_get_string ("__or_%c%d", gfc_type_letter (i->ts.type), f->ts.kind);
+ = gfc_get_string ("__or_%c%d", gfc_type_letter (i->ts.type),
+ gfc_type_abi_kind (&f->ts));
}
f->value.function.name
= gfc_get_string ("__real_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type), a->ts.kind);
+ gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
f->ts.kind = a->ts.kind;
f->value.function.name
= gfc_get_string ("__real_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type), a->ts.kind);
+ gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
f->value.function.name
= gfc_get_string (PREFIX ("reshape_%c%d"),
gfc_type_letter (source->ts.type),
- source->ts.kind);
+ gfc_type_abi_kind (&source->ts));
else if (source->ts.type == BT_CHARACTER)
f->value.function.name = gfc_get_string (PREFIX ("reshape_char%d"),
kind);
{
f->ts = a->ts;
f->value.function.name
- = gfc_get_string ("__sign_%c%d", gfc_type_letter (a->ts.type), a->ts.kind);
+ = gfc_get_string ("__sign_%c%d", gfc_type_letter (a->ts.type),
+ gfc_type_abi_kind (&a->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__sin_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__sin_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__sinh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__sinh_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__sqrt_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__sqrt_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__tan_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__tan_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
{
f->ts = x->ts;
f->value.function.name
- = gfc_get_string ("__tanh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
+ = gfc_get_string ("__tanh_%c%d", gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
f->value.function.name
= gfc_get_string (PREFIX ("transpose_%c%d"),
gfc_type_letter (matrix->ts.type),
- matrix->ts.kind);
+ gfc_type_abi_kind (&matrix->ts));
break;
case BT_INTEGER:
f->ts = x->ts;
f->value.function.name
= gfc_get_string (PREFIX ("%s_%c%d"), f->value.function.isym->name,
- gfc_type_letter (x->ts.type), x->ts.kind);
+ gfc_type_letter (x->ts.type),
+ gfc_type_abi_kind (&x->ts));
}
}
f->value.function.name
- = gfc_get_string ("__xor_%c%d", gfc_type_letter (i->ts.type), f->ts.kind);
+ = gfc_get_string ("__xor_%c%d", gfc_type_letter (i->ts.type),
+ gfc_type_abi_kind (&f->ts));
}
const char *name;
int kind;
- kind = c->ext.actual->expr->ts.kind;
+ kind = gfc_type_abi_kind (&c->ext.actual->expr->ts);
if (c->ext.actual->expr->rank == 0)
name = gfc_get_string (PREFIX ("random_r%d"), kind);
else