Lines Matching refs:cdesc
3828 tree cdesc;
3835 cdesc = gfc_class_data_get (GFC_DECL_SAVED_DESCRIPTOR (
3838 cdesc = desc;
3842 if (GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (cdesc))
3843 && TREE_CODE (cdesc) == COMPONENT_REF)
3845 type = TREE_TYPE (TREE_OPERAND (cdesc, 0));
3848 vptr = gfc_class_vptr_get (TREE_OPERAND (cdesc, 0));
9167 tree cdesc;
9243 cdesc = gfc_get_array_type_bounds (tmp, 1, 0, &gfc_index_one_node,
9247 cdesc = gfc_create_var (cdesc, "cdesc");
9248 DECL_ARTIFICIAL (cdesc) = 1;
9250 gfc_add_modify (&tmpblock, gfc_conv_descriptor_dtype (cdesc),
9252 gfc_conv_descriptor_lbound_set (&tmpblock, cdesc,
9255 gfc_conv_descriptor_stride_set (&tmpblock, cdesc,
9258 gfc_conv_descriptor_ubound_set (&tmpblock, cdesc,
9263 cdesc = NULL_TREE;
9288 gfc_conv_descriptor_data_set (&tmpblock, cdesc, comp);
9290 cdesc = comp;
9296 gfc_build_addr_expr (pvoid_type_node,cdesc),
9413 tree cdesc;
9435 cdesc = gfc_get_array_type_bounds (tmp, 1, 0, &gfc_index_one_node,
9439 cdesc = gfc_create_var (cdesc, "cdesc");
9440 DECL_ARTIFICIAL (cdesc) = 1;
9442 gfc_add_modify (&dealloc_block, gfc_conv_descriptor_dtype (cdesc),
9444 gfc_conv_descriptor_lbound_set (&dealloc_block, cdesc,
9447 gfc_conv_descriptor_stride_set (&dealloc_block, cdesc,
9450 gfc_conv_descriptor_ubound_set (&dealloc_block, cdesc,
9456 gfc_conv_descriptor_data_set (&dealloc_block, cdesc, comp);
9470 cdesc = gfc_build_addr_expr (NULL_TREE, cdesc);
9474 cdesc);
Indexes created Thu Oct 01 00:25:45 UTC 2026