Home
last modified time | relevance | path

Searched refs:f90_type (Results 1 – 24 of 24) sorted by relevance

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-types.c185 if (c_interop_kinds_table[i].f90_type == ts->type && in gfc_check_any_c_kind()
328 c_interop_kinds_table[i].f90_type = BT_UNKNOWN; in gfc_init_c_interop_kinds()
333 c_interop_kinds_table[a].f90_type = BT_INTEGER; \ in gfc_init_c_interop_kinds()
337 c_interop_kinds_table[a].f90_type = BT_REAL; \ in gfc_init_c_interop_kinds()
341 c_interop_kinds_table[a].f90_type = BT_COMPLEX; \ in gfc_init_c_interop_kinds()
345 c_interop_kinds_table[a].f90_type = BT_LOGICAL; \ in gfc_init_c_interop_kinds()
349 c_interop_kinds_table[a].f90_type = BT_CHARACTER; \ in gfc_init_c_interop_kinds()
353 c_interop_kinds_table[a].f90_type = BT_CHARACTER; \ in gfc_init_c_interop_kinds()
357 c_interop_kinds_table[a].f90_type = BT_DERIVED; \ in gfc_init_c_interop_kinds()
361 c_interop_kinds_table[a].f90_type = BT_PROCEDURE; \ in gfc_init_c_interop_kinds()
[all …]
H A Dmisc.c42 ts->f90_type = BT_UNKNOWN; in gfc_clear_ts()
H A Dsymbol.c333 sym->ts.f90_type = sym->ts.type; in gfc_set_default_type()
352 sym->ts.f90_type = sym->ts.type; in gfc_set_default_type()
4577 tmp_sym->ts.f90_type = BT_VOID; in gen_special_c_interop_ptr()
4586 tmp_sym->value->ts.f90_type = BT_VOID; in gen_special_c_interop_ptr()
4859 tmp_sym->ts.f90_type = c_interop_kinds_table[s].f90_type; in generate_isocbinding_symbol()
4895 tmp_sym->ts.f90_type = BT_CHARACTER; in generate_isocbinding_symbol()
4953 dt_sym->ts.f90_type = BT_VOID; in generate_isocbinding_symbol()
4982 tmp_comp->ts.f90_type = BT_INTEGER; in generate_isocbinding_symbol()
H A Ddecl.c2138 sym->ts.f90_type = init->ts.f90_type; in add_init_expr_to_sym()
3232 ts->f90_type = e->ts.f90_type; in gfc_match_kind_spec()
3254 if (ts->f90_type != BT_UNKNOWN && ts->f90_type != ts->type in gfc_match_kind_spec()
3255 && !((ts->f90_type == BT_REAL && ts->type == BT_COMPLEX) in gfc_match_kind_spec()
3256 || (ts->f90_type == BT_COMPLEX && ts->type == BT_REAL))) in gfc_match_kind_spec()
3258 "is %s", gfc_basic_typename (ts->f90_type), &where, in gfc_match_kind_spec()
5884 tmp_sym->ts.f90_type = tmp_sym->ts.type; in verify_bind_c_sym()
H A Dtarget-memory.c349 if (source->ts.u.derived->ts.f90_type == BT_VOID) in gfc_target_encode_expr()
H A Ddump-parse-tree.c3266 if (c_interop_kinds_table[i].f90_type == ts->type in get_c_type_name()
3297 if (c_interop_kinds_table[i].f90_type == BT_INTEGER in get_c_type_name()
3321 if (c_interop_kinds_table[i].f90_type == BT_INTEGER in get_c_type_name()
H A Dmodule.c2676 ts->f90_type = MIO_NAME (bt) (ts->f90_type, bt_types); in mio_typespec()
2678 ts->f90_type = MIO_NAME (bt) (ts->type, bt_types); in mio_typespec()
6406 isym->ts.f90_type = BT_VOID; in create_intrinsic_function()
6408 isym->ts.f90_type = BT_VOID; in create_intrinsic_function()
H A Dgfortran.h745 bt f90_type; member
1056 bt f90_type; member
H A Dtrans-expr.c8473 else if (expr->ts.type == BT_DERIVED && expr->ts.f90_type != BT_VOID) in gfc_trans_subcomponent_assign()
8868 if (expr->ts.type == BT_DERIVED && expr->ts.u.derived->ts.f90_type == BT_VOID in gfc_conv_expr()
8885 expr->ts.f90_type = BT_VOID; in gfc_conv_expr()
H A Dresolve.c1392 || comp->attr.proc_pointer || comp->ts.f90_type == BT_VOID in resolve_structure_cons()
9996 if (ts->u.derived->ts.f90_type == BT_VOID) in resolve_transfer()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-types.cc312 c_interop_kinds_table[i].f90_type = BT_UNKNOWN; in gfc_init_c_interop_kinds()
317 c_interop_kinds_table[a].f90_type = BT_INTEGER; \ in gfc_init_c_interop_kinds()
321 c_interop_kinds_table[a].f90_type = BT_REAL; \ in gfc_init_c_interop_kinds()
325 c_interop_kinds_table[a].f90_type = BT_COMPLEX; \ in gfc_init_c_interop_kinds()
329 c_interop_kinds_table[a].f90_type = BT_LOGICAL; \ in gfc_init_c_interop_kinds()
333 c_interop_kinds_table[a].f90_type = BT_CHARACTER; \ in gfc_init_c_interop_kinds()
337 c_interop_kinds_table[a].f90_type = BT_CHARACTER; \ in gfc_init_c_interop_kinds()
341 c_interop_kinds_table[a].f90_type = BT_DERIVED; \ in gfc_init_c_interop_kinds()
345 c_interop_kinds_table[a].f90_type = BT_PROCEDURE; \ in gfc_init_c_interop_kinds()
349 c_interop_kinds_table[a].f90_type = BT_PROCEDURE; \ in gfc_init_c_interop_kinds()
[all …]
H A Dmisc.cc42 ts->f90_type = BT_UNKNOWN; in gfc_clear_ts()
H A Dsymbol.cc333 sym->ts.f90_type = sym->ts.type; in gfc_set_default_type()
352 sym->ts.f90_type = sym->ts.type; in gfc_set_default_type()
4597 tmp_sym->ts.f90_type = BT_VOID; in gen_special_c_interop_ptr()
4606 tmp_sym->value->ts.f90_type = BT_VOID; in gen_special_c_interop_ptr()
4903 tmp_sym->ts.f90_type = c_interop_kinds_table[s].f90_type; in generate_isocbinding_symbol()
4939 tmp_sym->ts.f90_type = BT_CHARACTER; in generate_isocbinding_symbol()
4997 dt_sym->ts.f90_type = BT_VOID; in generate_isocbinding_symbol()
5026 tmp_comp->ts.f90_type = BT_INTEGER; in generate_isocbinding_symbol()
H A Ddecl.cc2220 sym->ts.f90_type = init->ts.f90_type; in add_init_expr_to_sym()
3329 ts->f90_type = e->ts.f90_type; in gfc_match_kind_spec()
3351 if (ts->f90_type != BT_UNKNOWN && ts->f90_type != ts->type in gfc_match_kind_spec()
3352 && !((ts->f90_type == BT_REAL && ts->type == BT_COMPLEX) in gfc_match_kind_spec()
3353 || (ts->f90_type == BT_COMPLEX && ts->type == BT_REAL))) in gfc_match_kind_spec()
3355 "is %s", gfc_basic_typename (ts->f90_type), &where, in gfc_match_kind_spec()
5973 tmp_sym->ts.f90_type = tmp_sym->ts.type; in verify_bind_c_sym()
H A Dtarget-memory.cc348 if (source->ts.u.derived->ts.f90_type == BT_VOID) in gfc_target_encode_expr()
H A Dmodule.cc2827 ts->f90_type = MIO_NAME (bt) (ts->f90_type, bt_types); in mio_typespec()
2829 ts->f90_type = MIO_NAME (bt) (ts->type, bt_types); in mio_typespec()
6617 isym->ts.f90_type = BT_VOID; in create_intrinsic_function()
6619 isym->ts.f90_type = BT_VOID; in create_intrinsic_function()
H A Ddump-parse-tree.cc3600 if (c_interop_kinds_table[i].f90_type == ts->type in get_c_type_name()
3636 if (c_interop_kinds_table[i].f90_type == BT_INTEGER in get_c_type_name()
3660 if (c_interop_kinds_table[i].f90_type == BT_INTEGER in get_c_type_name()
H A Dgfortran.h795 bt f90_type; member
1131 bt f90_type; member
H A Dtrans-expr.cc5618 if (e->ts.f90_type == BT_VOID) in gfc_conv_gfc_desc_to_cfi_desc()
9016 else if (expr->ts.type == BT_DERIVED && expr->ts.f90_type != BT_VOID) in gfc_trans_subcomponent_assign()
9411 if (expr->ts.type == BT_DERIVED && expr->ts.u.derived->ts.f90_type == BT_VOID in gfc_conv_expr()
9428 expr->ts.f90_type = BT_VOID; in gfc_conv_expr()
H A Dtrans-openmp.cc3114 && (n->sym->ts.u.derived->ts.f90_type in gfc_trans_omp_clauses()
5558 || (n->sym->ts.f90_type == BT_VOID in gfc_trans_omp_depobj()
H A Dresolve.cc1431 || comp->attr.proc_pointer || comp->ts.f90_type == BT_VOID in resolve_structure_cons()
10135 if (ts->u.derived->ts.f90_type == BT_VOID) in resolve_transfer()
H A Dopenmp.cc7466 || n->sym->ts.u.derived->ts.f90_type != BT_VOID) in resolve_omp_clauses()
H A Dtrans-decl.cc6777 if (sym->ts.f90_type == BT_VOID) in gfc_conv_cfi_to_gfc()
H A DChangeLog-20073123 (gfc_typespec): Add is_c_interop; is_iso_c, and f90_type members.