Home
last modified time | relevance | path

Searched refs:comp_ref (Results 1 – 6 of 6) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans.cc1451 bool comp_ref; in gfc_deallocate_with_status() local
1452 if (expr && !gfc_caf_attr (expr, false, &comp_ref).coarray_comp in gfc_deallocate_with_status()
1453 && comp_ref) in gfc_deallocate_with_status()
1618 bool finalizable, comp_ref; in gfc_deallocate_scalar_with_status() local
1621 if (coarray && expr && !gfc_caf_attr (expr, false, &comp_ref).coarray_comp in gfc_deallocate_scalar_with_status()
1622 && comp_ref) in gfc_deallocate_scalar_with_status()
H A Dtrans-stmt.cc7275 bool comp_ref; in gfc_trans_deallocate() local
7276 symbol_attribute caf_attr = gfc_caf_attr (expr, false, &comp_ref); in gfc_trans_deallocate()
7280 is_coarray_array = caf_attr.dimension || !comp_ref in gfc_trans_deallocate()
7288 | (comp_ref && !caf_attr.coarray_comp in gfc_trans_deallocate()
H A Dtrans-expr.cc169 bool comp_ref = !last_caf_ref->u.c.component->attr.dimension; in gfc_get_ultimate_alloc_ptr_comps_caf_token() local
170 if (comp == NULL_TREE && comp_ref) in gfc_get_ultimate_alloc_ptr_comps_caf_token()
175 caf_expr->rank = comp_ref ? 0 : last_caf_ref->u.c.component->as->rank; in gfc_get_ultimate_alloc_ptr_comps_caf_token()
176 se.want_pointer = comp_ref; in gfc_get_ultimate_alloc_ptr_comps_caf_token()
180 if (TREE_CODE (se.expr) == COMPONENT_REF && comp_ref) in gfc_get_ultimate_alloc_ptr_comps_caf_token()
184 if (comp_ref) in gfc_get_ultimate_alloc_ptr_comps_caf_token()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans.c1378 bool comp_ref; in gfc_deallocate_with_status() local
1379 if (expr && !gfc_caf_attr (expr, false, &comp_ref).coarray_comp in gfc_deallocate_with_status()
1380 && comp_ref) in gfc_deallocate_with_status()
1545 bool finalizable, comp_ref; in gfc_deallocate_scalar_with_status() local
1548 if (coarray && expr && !gfc_caf_attr (expr, false, &comp_ref).coarray_comp in gfc_deallocate_scalar_with_status()
1549 && comp_ref) in gfc_deallocate_scalar_with_status()
H A Dtrans-stmt.c7242 bool comp_ref; in gfc_trans_deallocate() local
7243 symbol_attribute caf_attr = gfc_caf_attr (expr, false, &comp_ref); in gfc_trans_deallocate()
7247 is_coarray_array = caf_attr.dimension || !comp_ref in gfc_trans_deallocate()
7255 | (comp_ref && !caf_attr.coarray_comp in gfc_trans_deallocate()
H A Dtrans-expr.c127 bool comp_ref = !last_caf_ref->u.c.component->attr.dimension; in gfc_get_ultimate_alloc_ptr_comps_caf_token() local
128 if (comp == NULL_TREE && comp_ref) in gfc_get_ultimate_alloc_ptr_comps_caf_token()
133 caf_expr->rank = comp_ref ? 0 : last_caf_ref->u.c.component->as->rank; in gfc_get_ultimate_alloc_ptr_comps_caf_token()
134 se.want_pointer = comp_ref; in gfc_get_ultimate_alloc_ptr_comps_caf_token()
138 if (TREE_CODE (se.expr) == COMPONENT_REF && comp_ref) in gfc_get_ultimate_alloc_ptr_comps_caf_token()
142 if (comp_ref) in gfc_get_ultimate_alloc_ptr_comps_caf_token()