Searched refs:f90_type (Results 1 - 9 of 9) sorted by relevance

/haiku-buildtools/gcc/gcc/fortran/
H A Dmisc.c40 ts->f90_type = BT_UNKNOWN;
H A Dtrans-types.c159 if (c_interop_kinds_table[i].f90_type == ts->type &&
324 c_interop_kinds_table[i].f90_type = BT_UNKNOWN;
329 c_interop_kinds_table[a].f90_type = BT_INTEGER; \
333 c_interop_kinds_table[a].f90_type = BT_REAL; \
337 c_interop_kinds_table[a].f90_type = BT_COMPLEX; \
341 c_interop_kinds_table[a].f90_type = BT_LOGICAL; \
345 c_interop_kinds_table[a].f90_type = BT_CHARACTER; \
349 c_interop_kinds_table[a].f90_type = BT_CHARACTER; \
353 c_interop_kinds_table[a].f90_type = BT_DERIVED; \
357 c_interop_kinds_table[a].f90_type
[all...]
H A Dsymbol.c279 sym->ts.f90_type = sym->ts.type;
298 sym->ts.f90_type = sym->ts.type;
4026 tmp_sym->ts.f90_type = BT_VOID;
4035 tmp_sym->value->ts.f90_type = BT_VOID;
4303 tmp_sym->ts.f90_type = c_interop_kinds_table[s].f90_type;
4339 tmp_sym->ts.f90_type = BT_CHARACTER;
4401 dt_sym->ts.f90_type = BT_VOID;
4431 tmp_comp->ts.f90_type = BT_INTEGER;
H A Ddecl.c1570 sym->ts.f90_type = init->ts.f90_type;
2345 ts->f90_type = e->ts.f90_type;
2365 if (ts->f90_type != BT_UNKNOWN && ts->f90_type != ts->type
2366 && !((ts->f90_type == BT_REAL && ts->type == BT_COMPLEX)
2367 || (ts->f90_type == BT_COMPLEX && ts->type == BT_REAL)))
2369 "is %s", gfc_basic_typename (ts->f90_type), &where,
4137 tmp_sym->ts.f90_type
[all...]
H A Dtarget-memory.c343 if (source->ts.u.derived->ts.f90_type == BT_VOID)
H A Dmodule.c2389 f90_type. Otherwise, use the ts->type, since it shouldn't matter. */
2391 ts->f90_type = MIO_NAME (bt) (ts->f90_type, bt_types);
2393 ts->f90_type = MIO_NAME (bt) (ts->type, bt_types);
5999 isym->ts.f90_type = BT_VOID;
6001 isym->ts.f90_type = BT_VOID;
H A Dgfortran.h702 bt f90_type; member in struct:__anon95
988 bt f90_type; member in struct:__anon100
H A Dtrans-expr.c6489 expr->ts.f90_type = derived->ts.f90_type;
7066 else if (expr->ts.type == BT_DERIVED && expr->ts.f90_type != BT_VOID)
7335 if (expr->ts.type == BT_DERIVED && expr->ts.u.derived->ts.f90_type == BT_VOID
7352 expr->ts.f90_type = BT_VOID;
H A Dresolve.c1264 || comp->attr.proc_pointer || comp->ts.f90_type == BT_VOID
8506 if (ts->u.derived->ts.f90_type == BT_VOID)

Completed in 230 milliseconds