Home
last modified time | relevance | path

Searched refs:coarray (Results 1 – 25 of 51) sorted by relevance

123

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dcheck.cc3414 gfc_check_lcobound (gfc_expr *coarray, gfc_expr *dim, gfc_expr *kind) in gfc_check_lcobound() argument
3422 if (!coarray_check (coarray, 0)) in gfc_check_lcobound()
3430 if (!dim_corank_check (dim, coarray)) in gfc_check_lcobound()
5935 gfc_check_image_index (gfc_expr *coarray, gfc_expr *sub) in gfc_check_image_index() argument
5945 if (!coarray_check (coarray, 0)) in gfc_check_image_index()
5964 int corank = gfc_get_corank (coarray); in gfc_check_image_index()
6051 gfc_check_this_image (gfc_expr *coarray, gfc_expr *dim, gfc_expr *distance) in gfc_check_this_image() argument
6059 if (coarray == NULL && dim == NULL && distance == NULL) in gfc_check_this_image()
6062 if (dim != NULL && coarray == NULL) in gfc_check_this_image()
6069 if (distance && (coarray || dim)) in gfc_check_this_image()
[all …]
H A DChangeLog-2016159 when it is a coarray.
265 supply a coarray handle.
379 coarray deregistration.
386 (caf_enabled): Check whether in-derived-type coarray processing is
388 (caf_in_coarray): Check that in-derived-type coarray processing is
389 enabled and currently in a derived-typed coarray.
405 reallocating a coarray without deregistering and reregistering it.
406 (gfc_trans_deferred_array): Initialize the coarray token correctly for
408 * trans-array.h: Change some prototypes to add the coarray (de-)
416 * trans-expr.c (gfc_conv_procedure_call): Propagate coarray allocation
[all …]
H A Darray.cc199 goto coarray; in gfc_match_array_ref()
218 goto coarray; in gfc_match_array_ref()
237 coarray: in gfc_match_array_ref()
564 goto coarray; in gfc_match_array_spec()
570 goto coarray; in gfc_match_array_spec()
583 goto coarray; in gfc_match_array_spec()
694 coarray: in gfc_match_array_spec()
H A Dparse.cc3224 bool coarray, lock_type, event_type, allocatable, pointer; in check_component() local
3225 coarray = lock_type = event_type = allocatable = pointer = false; in check_component()
3263 coarray = true; in check_component()
3270 coarray = true; in check_component()
3313 if (pointer && !coarray && lock_type) in check_component()
3318 else if (pointer && !coarray && c->ts.type == BT_DERIVED in check_component()
3324 if (lock_type && allocatable && !coarray) in check_component()
3333 if (sym->attr.coarray_comp && !coarray && lock_type) in check_component()
3340 if (sym->attr.lock_comp && coarray && !lock_type) in check_component()
3350 if (pointer && !coarray && event_type) in check_component()
[all …]
H A Dgfortran.texi3779 arguments. The token is an opaque pointer identifying the coarray
3781 denoting the byte offset between the base address of the coarray and
3793 @item The character length and/or coarray token and offset for the first
3794 argument which is a @code{CHARACTER} or a nonallocatable coarray dummy
3834 Indicates which kind of coarray variable should be registered.
3855 memory for an allocatable component in a derived type coarray. The token
3873 Allows to specifiy the type of deregistration of a coarray object. The
3894 /* Reference a non-allocatable/non-pointer array. I.e., the coarray object
4004 …_present:: Query whether an allocatable or pointer component in a derived type coarray is allocated
4059 Passing Interface (MPI) specification. Due to the way coarray registration
[all …]
H A DChangeLog-20111027 * trans-array.c (gfc_walk_array_ref): Skip coarray dimensions.
1135 * array.c (gfc_find_array_ref): Remove coarray-specific handling.
1155 coarray object reference.
1364 * trans-array.c (gfc_conv_section_startstride): Remove coarray argument.
1365 Remove conditions on coarray.
1378 * trans-array.c (gfc_walk_variable_expr): Remove scalar coarray
1467 coarray.
1471 * trans-array.c (gfc_conv_expr_descriptor): Simplify coarray
1476 * resolve.c (compare_spec_to_ref): Move coarray ref initialization
1727 scalar coarray components.
[all …]
H A Dtrans.cc1614 gfc_typespec ts, bool coarray) in gfc_deallocate_scalar_with_status() argument
1621 if (coarray && expr && !gfc_caf_attr (expr, false, &comp_ref).coarray_comp in gfc_deallocate_scalar_with_status()
1670 int caf_mode = coarray in gfc_deallocate_scalar_with_status()
1676 if (coarray && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (pointer))) in gfc_deallocate_scalar_with_status()
1684 if (!coarray || flag_coarray == GFC_FCOARRAY_SINGLE) in gfc_deallocate_scalar_with_status()
H A Dsimplify.cc4010 gfc_array_spec *as, gfc_ref *ref, bool coarray) in simplify_bound_dim() argument
4024 if (!coarray && array->expr_type != EXPR_VARIABLE) in simplify_bound_dim()
4050 if ((!coarray && d == as->rank && as->type == AS_ASSUMED_SIZE && !upper) in simplify_bound_dim()
4051 || (coarray && d == as->rank + as->corank in simplify_bound_dim()
4066 if (coarray || (ref->u.ar.type == AR_FULL && !ref->next)) in simplify_bound_dim()
4087 if (!coarray) in simplify_bound_dim()
8245 gfc_simplify_image_index (gfc_expr *coarray, gfc_expr *sub) in gfc_simplify_image_index() argument
8258 as = coarray->symtree->n.sym->as; in gfc_simplify_image_index()
8259 for (ref = coarray->ref; ref; ref = ref->next) in gfc_simplify_image_index()
8279 ca_bound = simplify_bound_dim (coarray, NULL, d + as->rank, 0, as, in gfc_simplify_image_index()
[all …]
H A Dgfortran.info1661 Disable coarray support; using coarray declarations and
1669 Library-based coarray parallelization; a suitable GNU Fortran
1670 coarray library needs to be linked.
5056 is an opaque pointer identifying the coarray and the offset is a
5058 between the base address of the coarray and the passed scalar or first
5069 * The character length and/or coarray token and offset for the first
5070 argument which is a 'CHARACTER' or a nonallocatable coarray dummy
5114 Indicates which kind of coarray variable should be registered.
5134 coarray. The token needs to be setup previously by the REGISTER_ONLY.
5152 Allows to specifiy the type of deregistration of a coarray object.
[all …]
H A Dexpr.cc5788 bool coarray; in gfc_is_coarray() local
5798 coarray = CLASS_DATA (sym)->attr.codimension; in gfc_is_coarray()
5800 coarray = sym->attr.codimension; in gfc_is_coarray()
5812 coarray = CLASS_DATA (comp)->attr.codimension; in gfc_is_coarray()
5817 coarray = comp->attr.codimension; in gfc_is_coarray()
5822 if (!coarray) in gfc_is_coarray()
5834 coarray = false; in gfc_is_coarray()
5844 return coarray && !coindexed; in gfc_is_coarray()
H A Dtrans-array.cc6064 bool allocatable, coarray, dimension, alloc_w_e3_arr_spec = false, in gfc_array_allocate() local
6096 coarray = false; in gfc_array_allocate()
6100 coarray = true; in gfc_array_allocate()
6105 gcc_assert (coarray); in gfc_array_allocate()
6129 if (!coarray) in gfc_array_allocate()
6171 coarray ? ref->u.ar.as->corank : 0, in gfc_array_allocate()
6208 if (coarray && flag_coarray == GFC_FCOARRAY_LIB) in gfc_array_allocate()
10538 bool coarray = (flag_coarray == GFC_FCOARRAY_LIB in gfc_alloc_allocatable_for_assignment() local
10979 else if (coarray && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (desc))) in gfc_alloc_allocatable_for_assignment()
10990 if (coarray) in gfc_alloc_allocatable_for_assignment()
[all …]
H A DChangeLog-20104741 * array.c (match_subscript,gfc_match_array_ref): Add coarray support.
4743 * expr.c (gfc_check_pointer_assign): Add check for coarray constraint.
4753 check_intents): Add coarray constraints.
4754 * match.c (gfc_match_iterator): Add coarray constraint.
4764 resolve_allocate_expr, resolve_ordinary_assign): Add coarray
4767 Skip over coarray refs.
4769 * trans-expr.c (gfc_add_interface_mapping): Copy coarray attribute.
4847 (mio_symbol_attribute): Support coarray attributes.
4850 parse_derived): Add coarray support.
4853 resolve_fl_derived, resolve_symbol): Add coarray support.
[all …]
H A DChangeLog-20172220 rewritten coarray pointer assignments like for plain ones.
2226 allocate is not an ultimate coarray component. Add allocation of
2244 a coarray pre-register the tokens.
2245 (gfc_trans_deallocate): Simply determining the coarray type (scalar or
2255 of coarray components.
H A DChangeLog-2012260 (gfc_conv_variable): Fix for scalar coarray components.
279 Fix coarray handling and packing.
444 * module.c (mio_array_spec): Correctly handle coarray
720 gfc_option.coarray check.
775 diagnostic of coarray's '*'.
H A Dmatch.cc4369 bool coarray = tail->expr->symtree->n.sym->attr.codimension; in gfc_match_allocate() local
4372 coarray = ref->u.c.component->attr.codimension; in gfc_match_allocate()
4374 if (coarray && gfc_find_state (COMP_DO_CONCURRENT)) in gfc_match_allocate()
4379 if (coarray && gfc_find_state (COMP_CRITICAL)) in gfc_match_allocate()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dcheck.c3410 gfc_check_lcobound (gfc_expr *coarray, gfc_expr *dim, gfc_expr *kind) in gfc_check_lcobound() argument
3418 if (!coarray_check (coarray, 0)) in gfc_check_lcobound()
3426 if (!dim_corank_check (dim, coarray)) in gfc_check_lcobound()
5916 gfc_check_image_index (gfc_expr *coarray, gfc_expr *sub) in gfc_check_image_index() argument
5926 if (!coarray_check (coarray, 0)) in gfc_check_image_index()
5938 int corank = gfc_get_corank (coarray); in gfc_check_image_index()
6025 gfc_check_this_image (gfc_expr *coarray, gfc_expr *dim, gfc_expr *distance) in gfc_check_this_image() argument
6033 if (coarray == NULL && dim == NULL && distance == NULL) in gfc_check_this_image()
6036 if (dim != NULL && coarray == NULL) in gfc_check_this_image()
6043 if (distance && (coarray || dim)) in gfc_check_this_image()
[all …]
H A Darray.c192 goto coarray; in gfc_match_array_ref()
211 goto coarray; in gfc_match_array_ref()
230 coarray: in gfc_match_array_ref()
557 goto coarray; in gfc_match_array_spec()
563 goto coarray; in gfc_match_array_spec()
576 goto coarray; in gfc_match_array_spec()
687 coarray: in gfc_match_array_spec()
H A Dparse.c2974 bool coarray, lock_type, event_type, allocatable, pointer; in check_component() local
2975 coarray = lock_type = event_type = allocatable = pointer = false; in check_component()
3013 coarray = true; in check_component()
3020 coarray = true; in check_component()
3063 if (pointer && !coarray && lock_type) in check_component()
3068 else if (pointer && !coarray && c->ts.type == BT_DERIVED in check_component()
3074 if (lock_type && allocatable && !coarray) in check_component()
3083 if (sym->attr.coarray_comp && !coarray && lock_type) in check_component()
3090 if (sym->attr.lock_comp && coarray && !lock_type) in check_component()
3100 if (pointer && !coarray && event_type) in check_component()
[all …]
H A Dgfortran.texi4171 arguments. The token is an oparque pointer identifying the coarray
4173 denoting the byte offset between the base address of the coarray and
4185 @item The character length and/or coarray token and offset for the first
4186 argument which is a @code{CHARACTER} or a nonallocatable coarray dummy
4226 Indicates which kind of coarray variable should be registered.
4247 memory for an allocatable component in a derived type coarray. The token
4265 Allows to specifiy the type of deregistration of a coarray object. The
4286 /* Reference a non-allocatable/non-pointer array. I.e., the coarray object
4396 …_present:: Query whether an allocatable or pointer component in a derived type coarray is allocated
4451 Passing Interface (MPI) specification. Due to the way coarray registration
[all …]
H A Dtrans.c1541 gfc_typespec ts, bool coarray) in gfc_deallocate_scalar_with_status() argument
1548 if (coarray && expr && !gfc_caf_attr (expr, false, &comp_ref).coarray_comp in gfc_deallocate_scalar_with_status()
1597 int caf_mode = coarray in gfc_deallocate_scalar_with_status()
1603 if (coarray && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (pointer))) in gfc_deallocate_scalar_with_status()
1611 if (!coarray || flag_coarray == GFC_FCOARRAY_SINGLE) in gfc_deallocate_scalar_with_status()
H A Dsimplify.c3977 gfc_array_spec *as, gfc_ref *ref, bool coarray) in simplify_bound_dim() argument
3991 if (!coarray && array->expr_type != EXPR_VARIABLE) in simplify_bound_dim()
4017 if ((!coarray && d == as->rank && as->type == AS_ASSUMED_SIZE && !upper) in simplify_bound_dim()
4018 || (coarray && d == as->rank + as->corank in simplify_bound_dim()
4033 if (coarray || (ref->u.ar.type == AR_FULL && !ref->next)) in simplify_bound_dim()
4054 if (!coarray) in simplify_bound_dim()
8102 gfc_simplify_image_index (gfc_expr *coarray, gfc_expr *sub) in gfc_simplify_image_index() argument
8115 as = coarray->symtree->n.sym->as; in gfc_simplify_image_index()
8116 for (ref = coarray->ref; ref; ref = ref->next) in gfc_simplify_image_index()
8136 ca_bound = simplify_bound_dim (coarray, NULL, d + as->rank, 0, as, in gfc_simplify_image_index()
[all …]
H A Dgfortran.info1613 Disable coarray support; using coarray declarations and
1621 Library-based coarray parallelization; a suitable GNU Fortran
1622 coarray library needs to be linked.
5362 is an oparque pointer identifying the coarray and the offset is a
5364 between the base address of the coarray and the passed scalar or first
5375 * The character length and/or coarray token and offset for the first
5376 argument which is a 'CHARACTER' or a nonallocatable coarray dummy
5420 Indicates which kind of coarray variable should be registered.
5440 coarray. The token needs to be setup previously by the REGISTER_ONLY.
5458 Allows to specifiy the type of deregistration of a coarray object.
[all …]
H A Dexpr.c5748 bool coarray; in gfc_is_coarray() local
5758 coarray = CLASS_DATA (sym)->attr.codimension; in gfc_is_coarray()
5760 coarray = sym->attr.codimension; in gfc_is_coarray()
5772 coarray = CLASS_DATA (comp)->attr.codimension; in gfc_is_coarray()
5777 coarray = comp->attr.codimension; in gfc_is_coarray()
5782 if (!coarray) in gfc_is_coarray()
5794 coarray = false; in gfc_is_coarray()
5804 return coarray && !coindexed; in gfc_is_coarray()
H A Dtrans-array.c5954 bool allocatable, coarray, dimension, alloc_w_e3_arr_spec = false, in gfc_array_allocate() local
5986 coarray = false; in gfc_array_allocate()
5990 coarray = true; in gfc_array_allocate()
5995 gcc_assert (coarray); in gfc_array_allocate()
6019 if (!coarray) in gfc_array_allocate()
6061 coarray ? ref->u.ar.as->corank : 0, in gfc_array_allocate()
6098 if (coarray && flag_coarray == GFC_FCOARRAY_LIB) in gfc_array_allocate()
10337 bool coarray = (flag_coarray == GFC_FCOARRAY_LIB in gfc_alloc_allocatable_for_assignment() local
10791 else if (coarray && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (desc))) in gfc_alloc_allocatable_for_assignment()
10802 if (coarray) in gfc_alloc_allocatable_for_assignment()
[all …]
H A Dmatch.c4328 bool coarray = tail->expr->symtree->n.sym->attr.codimension; in gfc_match_allocate() local
4331 coarray = ref->u.c.component->attr.codimension; in gfc_match_allocate()
4333 if (coarray && gfc_find_state (COMP_DO_CONCURRENT)) in gfc_match_allocate()
4338 if (coarray && gfc_find_state (COMP_CRITICAL)) in gfc_match_allocate()

123