Lines Matching defs:coarray
702 gfc_error ("Expected coarray variable as %qs argument to the %s "
1072 /* If a coarray DIM parameter is a constant, make sure that it is greater than
1564 "coarray or coindexed", &atom->where, gfc_current_intrinsic);
3410 gfc_check_lcobound (gfc_expr *coarray, gfc_expr *dim, gfc_expr *kind)
3418 if (!coarray_check (coarray, 0))
3426 if (!dim_corank_check (dim, coarray))
5916 gfc_check_image_index (gfc_expr *coarray, gfc_expr *sub)
5926 if (!coarray_check (coarray, 0))
5938 int corank = gfc_get_corank (coarray);
6025 gfc_check_this_image (gfc_expr *coarray, gfc_expr *dim, gfc_expr *distance)
6033 if (coarray == NULL && dim == NULL && distance == NULL)
6036 if (dim != NULL && coarray == NULL)
6043 if (distance && (coarray || dim))
6052 if (coarray && !gfc_is_coarray (coarray) && coarray->ts.type == BT_INTEGER)
6057 &coarray->where);
6060 distance = coarray;
6081 if (!coarray_check (coarray, 0))
6089 if (!dim_corank_check (dim, coarray))
6288 gfc_check_ucobound (gfc_expr *coarray, gfc_expr *dim, gfc_expr *kind)
6296 if (!coarray_check (coarray, 0))
6304 if (!dim_corank_check (dim, coarray))