Lines Matching defs:coarray
4010 gfc_array_spec *as, gfc_ref *ref, bool coarray)
4024 if (!coarray && array->expr_type != EXPR_VARIABLE)
4050 if ((!coarray && d == as->rank && as->type == AS_ASSUMED_SIZE && !upper)
4051 || (coarray && d == as->rank + as->corank
4066 if (coarray || (ref->u.ar.type == AR_FULL && !ref->next))
4087 if (!coarray)
8245 gfc_simplify_image_index (gfc_expr *coarray, gfc_expr *sub)
8258 as = coarray->symtree->n.sym->as;
8259 for (ref = coarray->ref; ref; ref = ref->next)
8279 ca_bound = simplify_bound_dim (coarray, NULL, d + as->rank, 0, as,
8302 &coarray->where, d,
8314 ca_bound = simplify_bound_dim (coarray, NULL, d + as->rank, 1, as,
8325 &coarray->where, d,
8386 gfc_simplify_this_image (gfc_expr *coarray, gfc_expr *dim,
8392 /* If no coarray argument has been passed or when the first argument
8394 if (coarray == NULL || !gfc_is_coarray (coarray))
8405 return simplify_cobound (coarray, dim, NULL, 0);