| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | trans-io.c | 1797 if (gfc_bt_struct (ts->type) && ts->u.derived->components in transfer_namelist_element()
2410 if (gfc_bt_struct (ts->type) || ts->type == BT_CLASS) in transfer_expr()
2444 else if (gfc_bt_struct (ts->type)) in transfer_expr()
2604 if (!(gfc_bt_struct (expr->ts.type) in gfc_trans_transfer()
|
| H A D | expr.c | 1151 && !gfc_bt_struct (ref->u.c.component->ts.type)) in is_subref_array()
1941 && (p->ts.type == BT_CHARACTER || gfc_bt_struct (p->ts.type))) in simplify_const_ref()
1951 if (gfc_bt_struct (p->ts.type) in simplify_const_ref()
4901 if (gfc_bt_struct (c->ts.type)) in gfc_has_default_initializer()
|
| H A D | resolve.c | 6450 || (check_types && gfc_bt_struct (ref->u.c.component->ts.type))) in get_declared_from_expr()
6754 if ((class_ref && gfc_bt_struct (class_ref->u.c.component->ts.type)) in resolve_typebound_function()
6884 if ((class_ref && gfc_bt_struct (class_ref->u.c.component->ts.type)) in resolve_typebound_subroutine()
8094 if (gfc_bt_struct (sym->ts.type) || sym->ts.type == BT_CLASS) in resolve_allocate_expr()
11280 if ((!gfc_bt_struct (c->ts.type) in nonscalar_typebound_assign()
11420 if (!gfc_bt_struct (comp1->ts.type) in generate_component_assignments()
14335 if (!gfc_bt_struct (c->ts.type) in check_defined_assignments()
14399 if (gfc_bt_struct (c->ts.type) && c->ts.u.derived->attr.coarray_comp in resolve_component()
16793 if (gfc_bt_struct (c->ts.type) in resolve_equivalence_derived()
|
| H A D | match.c | 175 else if (gfc_bt_struct (sym->ts.type)) in gfc_match_member_sep()
214 if (c && (gfc_bt_struct (c->ts.type) || c->ts.type == BT_CLASS)) in gfc_match_member_sep()
|
| H A D | gfortran.h | 67 #define gfc_bt_struct(t) \ macro
|
| H A D | trans-stmt.c | 6124 if (!gfc_bt_struct (expr->ts.type) && expr->ts.type != BT_CLASS) in allocate_get_initializer()
6133 if (gfc_bt_struct (expr->ts.type) in allocate_get_initializer()
7264 if (gfc_bt_struct (expr->ts.type) in gfc_trans_deallocate()
|
| H A D | decl.c | 1929 if (!gfc_bt_struct (sym->ts.type) && !gfc_bt_struct (init->ts.type) in add_init_expr_to_sym()
2130 if (sym->ts.type != BT_CHARACTER && !gfc_bt_struct (sym->ts.type)) in add_init_expr_to_sym()
|
| H A D | primary.c | 3286 && (!gfc_bt_struct (comp_tail->val->ts.type) in gfc_convert_to_structure_constructor()
|
| H A D | trans-types.c | 3125 && !gfc_bt_struct (arg->ts.type)) in gfc_get_function_type()
|
| H A D | trans-expr.c | 8056 if (gfc_bt_struct (cm->ts.type) in gfc_trans_alloc_subarray_assign()
9900 else if (gfc_bt_struct (ts.type) in gfc_trans_scalar_assign()
9958 else if (gfc_bt_struct (ts.type)) in gfc_trans_scalar_assign()
|
| H A D | check.c | 3367 if (gfc_bt_struct (x->ts.type) || x->ts.type == BT_CLASS) in gfc_check_kind()
|
| H A D | module.c | 2661 if (!gfc_bt_struct (ts->type) && ts->type != BT_CLASS) in mio_typespec()
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | trans-io.cc | 1822 if (gfc_bt_struct (ts->type) && ts->u.derived->components in transfer_namelist_element()
2435 if (gfc_bt_struct (ts->type) || ts->type == BT_CLASS) in transfer_expr()
2469 else if (gfc_bt_struct (ts->type)) in transfer_expr()
2629 if (!(gfc_bt_struct (expr->ts.type) in gfc_trans_transfer()
|
| H A D | expr.cc | 1161 && !gfc_bt_struct (ref->u.c.component->ts.type)) in is_subref_array()
1966 && (p->ts.type == BT_CHARACTER || gfc_bt_struct (p->ts.type))) in simplify_const_ref()
1976 if (gfc_bt_struct (p->ts.type) in simplify_const_ref()
4941 if (gfc_bt_struct (c->ts.type)) in gfc_has_default_initializer()
|
| H A D | resolve.cc | 6572 || (check_types && gfc_bt_struct (ref->u.c.component->ts.type))) in get_declared_from_expr()
6876 if ((class_ref && gfc_bt_struct (class_ref->u.c.component->ts.type)) in resolve_typebound_function()
7006 if ((class_ref && gfc_bt_struct (class_ref->u.c.component->ts.type)) in resolve_typebound_subroutine()
8218 if (gfc_bt_struct (sym->ts.type) || sym->ts.type == BT_CLASS) in resolve_allocate_expr()
11439 if ((!gfc_bt_struct (c->ts.type) in nonscalar_typebound_assign()
11579 if (!gfc_bt_struct (comp1->ts.type) in generate_component_assignments()
14548 if (!gfc_bt_struct (c->ts.type) in check_defined_assignments()
14612 if (gfc_bt_struct (c->ts.type) && c->ts.u.derived->attr.coarray_comp in resolve_component()
17028 if (gfc_bt_struct (c->ts.type) in resolve_equivalence_derived()
|
| H A D | match.cc | 175 else if (gfc_bt_struct (sym->ts.type)) in gfc_match_member_sep()
214 if (c && (gfc_bt_struct (c->ts.type) || c->ts.type == BT_CLASS)) in gfc_match_member_sep()
|
| H A D | trans-stmt.cc | 6160 if (!gfc_bt_struct (expr->ts.type) && expr->ts.type != BT_CLASS) in allocate_get_initializer()
6169 if (gfc_bt_struct (expr->ts.type) in allocate_get_initializer()
7297 if (gfc_bt_struct (expr->ts.type) in gfc_trans_deallocate()
|
| H A D | decl.cc | 2011 if (!gfc_bt_struct (sym->ts.type) && !gfc_bt_struct (init->ts.type) in add_init_expr_to_sym()
2212 if (sym->ts.type != BT_CHARACTER && !gfc_bt_struct (sym->ts.type)) in add_init_expr_to_sym()
|
| H A D | gfortran.h | 67 #define gfc_bt_struct(t) \ macro
|
| H A D | primary.cc | 3294 && (!gfc_bt_struct (comp_tail->val->ts.type) in gfc_convert_to_structure_constructor()
|
| H A D | trans-types.cc | 3223 && !gfc_bt_struct (arg->ts.type)) in gfc_get_function_type()
|
| H A D | trans-expr.cc | 8599 if (gfc_bt_struct (cm->ts.type) in gfc_trans_alloc_subarray_assign()
10444 else if (gfc_bt_struct (ts.type) in gfc_trans_scalar_assign()
10502 else if (gfc_bt_struct (ts.type)) in gfc_trans_scalar_assign()
|
| H A D | check.cc | 3371 if (gfc_bt_struct (x->ts.type) || x->ts.type == BT_CLASS) in gfc_check_kind()
|
| H A D | module.cc | 2812 if (!gfc_bt_struct (ts->type) && ts->type != BT_CLASS) in mio_typespec()
|
| H A D | ChangeLog-2016 | 2480 (gfc_bt_struct, gfc_fl_struct, case_bt_struct, case_fl_struct): New
|