Lines Matching defs:cdesc
3721 tree cdesc;
3728 cdesc = gfc_class_data_get (GFC_DECL_SAVED_DESCRIPTOR (
3731 cdesc = desc;
3735 if (GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (cdesc))
3736 && TREE_CODE (cdesc) == COMPONENT_REF)
3738 type = TREE_TYPE (TREE_OPERAND (cdesc, 0));
3741 vptr = gfc_class_vptr_get (TREE_OPERAND (cdesc, 0));
8971 tree cdesc;
9036 cdesc = gfc_get_array_type_bounds (tmp, 1, 0, &gfc_index_one_node,
9040 cdesc = gfc_create_var (cdesc, "cdesc");
9041 DECL_ARTIFICIAL (cdesc) = 1;
9043 gfc_add_modify (&tmpblock, gfc_conv_descriptor_dtype (cdesc),
9045 gfc_conv_descriptor_lbound_set (&tmpblock, cdesc,
9048 gfc_conv_descriptor_stride_set (&tmpblock, cdesc,
9051 gfc_conv_descriptor_ubound_set (&tmpblock, cdesc,
9070 gfc_conv_descriptor_data_set (&tmpblock, cdesc, comp);
9076 gfc_build_addr_expr (pvoid_type_node,cdesc),
9193 tree cdesc;
9215 cdesc = gfc_get_array_type_bounds (tmp, 1, 0, &gfc_index_one_node,
9219 cdesc = gfc_create_var (cdesc, "cdesc");
9220 DECL_ARTIFICIAL (cdesc) = 1;
9222 gfc_add_modify (&dealloc_block, gfc_conv_descriptor_dtype (cdesc),
9224 gfc_conv_descriptor_lbound_set (&dealloc_block, cdesc,
9227 gfc_conv_descriptor_stride_set (&dealloc_block, cdesc,
9230 gfc_conv_descriptor_ubound_set (&dealloc_block, cdesc,
9236 gfc_conv_descriptor_data_set (&dealloc_block, cdesc, comp);
9250 cdesc = gfc_build_addr_expr (NULL_TREE, cdesc);
9254 cdesc);