Searched refs:caf_attr (Results 1 – 9 of 9) sorted by relevance
6179 symbol_attribute caf_attr; in gfc_trans_allocate() local6805 || caf_attr.coarray_comp || !caf_refs_comp; in gfc_trans_allocate()6836 || caf_attr.coarray_comp || !caf_refs_comp; in gfc_trans_allocate()7048 symbol_attribute caf_attr; in gfc_trans_allocate() local7055 gfc_clear_attr (&caf_attr); in gfc_trans_allocate()7062 caf_attr = gfc_caf_attr (expr, true); in gfc_trans_allocate()7069 tmp = (caf_attr.codimension && !caf_attr.dimension) in gfc_trans_allocate()7244 if (caf_attr.codimension) in gfc_trans_deallocate()7247 is_coarray_array = caf_attr.dimension || !comp_ref in gfc_trans_deallocate()7248 || caf_attr.coarray_comp; in gfc_trans_deallocate()[all …]
6215 symbol_attribute caf_attr; in gfc_trans_allocate() local6838 || caf_attr.coarray_comp || !caf_refs_comp; in gfc_trans_allocate()6869 || caf_attr.coarray_comp || !caf_refs_comp; in gfc_trans_allocate()7081 symbol_attribute caf_attr; in gfc_trans_allocate() local7088 gfc_clear_attr (&caf_attr); in gfc_trans_allocate()7095 caf_attr = gfc_caf_attr (expr, true); in gfc_trans_allocate()7102 tmp = (caf_attr.codimension && !caf_attr.dimension) in gfc_trans_allocate()7277 if (caf_attr.codimension) in gfc_trans_deallocate()7280 is_coarray_array = caf_attr.dimension || !comp_ref in gfc_trans_deallocate()7281 || caf_attr.coarray_comp; in gfc_trans_deallocate()[all …]
845 symbol_attribute caf_attr; in gfc_allocate_allocatable() local860 caf_attr = gfc_caf_attr (expr, true, &refs_comp); in gfc_allocate_allocatable()863 && (corank > 0 || caf_attr.codimension)) in gfc_allocate_allocatable()883 else if (!caf_attr.coarray_comp && refs_comp) in gfc_allocate_allocatable()
918 symbol_attribute caf_attr; in gfc_allocate_allocatable() local933 caf_attr = gfc_caf_attr (expr, true, &refs_comp); in gfc_allocate_allocatable()936 && (corank > 0 || caf_attr.codimension)) in gfc_allocate_allocatable()956 else if (!caf_attr.coarray_comp && refs_comp) in gfc_allocate_allocatable()
1658 symbol_attribute *caf_attr) in gfc_conv_intrinsic_caf_get() argument1680 if (caf_attr == NULL) in gfc_conv_intrinsic_caf_get()1683 caf_attr = &caf_attr_store; in gfc_conv_intrinsic_caf_get()1706 if (caf_attr->alloc_comp || caf_attr->pointer_comp || may_realloc) in gfc_conv_intrinsic_caf_get()8727 symbol_attribute caf_attr; in gfc_conv_allocated() local8748 caf_attr = gfc_caf_attr (arg1->expr->value.function.actual->expr); in gfc_conv_allocated()8750 gfc_clear_attr (&caf_attr); in gfc_conv_allocated()8751 if (flag_coarray == GFC_FCOARRAY_LIB && caf_attr.codimension in gfc_conv_allocated()
1666 symbol_attribute *caf_attr) in gfc_conv_intrinsic_caf_get() argument1688 if (caf_attr == NULL) in gfc_conv_intrinsic_caf_get()1691 caf_attr = &caf_attr_store; in gfc_conv_intrinsic_caf_get()1714 if (caf_attr->alloc_comp || caf_attr->pointer_comp || may_realloc) in gfc_conv_intrinsic_caf_get()