3977 		    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()
8159 		     &coarray->where, d,  in gfc_simplify_image_index()
8171 	  ca_bound = simplify_bound_dim (coarray, NULL, d + as->rank, 1, as,  in gfc_simplify_image_index()
8182 		       &coarray->where, d,  in gfc_simplify_image_index()
8243 gfc_simplify_this_image (gfc_expr *coarray, gfc_expr *dim,  in gfc_simplify_this_image()  argument
8251   if (coarray == NULL || !gfc_is_coarray (coarray))  in gfc_simplify_this_image()
8262   return simplify_cobound (coarray, dim, NULL, 0);  in gfc_simplify_this_image()