| /haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
| H A D | coarray_7.f90 | 49 call coarray(caf1) ! rank mismatch; OK, for non allocatable coarrays
50 call coarray(caf2)
51 call coarray(caf2[1]) ! { dg-error "must be a coarray" }
66 subroutine coarray(a) subroutine in program:test
68 end subroutine coarray
140 call foo(j) ! { dg-error "must be a coarray" }
|
| /haiku-buildtools/gcc/gcc/fortran/ |
| H A D | check.c | 218 gfc_error ("Expected coarray variable as %qs argument to the %s "
571 /* If a coarray DIM parameter is a constant, make sure that it is greater than
1036 "coarray or coindexed", &atom->where, gfc_current_intrinsic);
2638 gfc_check_lcobound (gfc_expr *coarray, gfc_expr *dim, gfc_expr *kind) argument
2646 if (!coarray_check (coarray, 0))
2654 if (!dim_corank_check (dim, coarray))
4944 gfc_check_image_index (gfc_expr *coarray, gfc_expr *sub) argument
4954 if (!coarray_check (coarray, 0))
4966 int corank = gfc_get_corank (coarray);
5026 gfc_check_this_image (gfc_expr *coarray, gfc_exp argument
5225 gfc_check_ucobound(gfc_expr *coarray, gfc_expr *dim, gfc_expr *kind) argument
[all...] |
| H A D | array.c | 104 gfc_error ("Unexpected %<*%> in coarray subscript at %C");
128 gfc_error ("Strides not allowed in coarray subscript at %C");
169 goto coarray;
188 goto coarray;
202 coarray:
219 gfc_error ("Unexpected coarray designator at %C");
253 gfc_error ("Invalid form of coarray reference at %C");
458 it is. Match either a normal array specification, or a coarray spec
471 goto coarray;
477 goto coarray;
[all...] |
| H A D | parse.c | 2728 bool coarray, lock_type, event_type, allocatable, pointer; local
2729 coarray = lock_type = event_type = allocatable = pointer = false;
2758 /* Looking for coarray components. */
2763 coarray = true;
2770 coarray = true;
2809 (5.3.14) and that subobjects of coarray are coarray themselves (2.4.7),
2813 if (pointer && !coarray && lock_type)
2815 "codimension or be a subcomponent of a coarray, "
2818 else if (pointer && !coarray
[all...] |
| H A D | simplify.c | 3283 gfc_array_spec *as, gfc_ref *ref, bool coarray)
3297 if (!coarray && array->expr_type != EXPR_VARIABLE)
3323 if ((!coarray && d == as->rank && as->type == AS_ASSUMED_SIZE && !upper)
3324 || (coarray && d == as->rank + as->corank
3339 if (coarray || ref->u.ar.type == AR_FULL)
6441 gfc_simplify_image_index (gfc_expr *coarray, gfc_expr *sub) argument
6454 as = coarray->symtree->n.sym->as;
6455 for (ref = coarray->ref; ref; ref = ref->next)
6475 ca_bound = simplify_bound_dim (coarray, NULL, d + as->rank, 0, as,
6498 &coarray
3282 simplify_bound_dim(gfc_expr *array, gfc_expr *kind, int d, int upper, gfc_array_spec *as, gfc_ref *ref, bool coarray) argument
6552 gfc_simplify_this_image(gfc_expr *coarray, gfc_expr *dim, gfc_expr *distance ATTRIBUTE_UNUSED) argument
[all...] |
| H A D | trans.c | 337 /* Scalar coarray, there is nothing to do. */
1270 bool can_fail, gfc_expr* expr, bool coarray)
1277 if (coarray)
1327 if (!coarray || flag_coarray != GFC_FCOARRAY_LIB)
1268 gfc_deallocate_with_status(tree pointer, tree status, tree errmsg, tree errlen, tree label_finish, bool can_fail, gfc_expr* expr, bool coarray) argument
|
| H A D | expr.c | 4455 the following is a coarray: A subobject of a coarray is a coarray if it does
4466 bool coarray; local
4476 coarray = CLASS_DATA (sym)->attr.codimension;
4478 coarray = sym->attr.codimension;
4490 coarray = CLASS_DATA (comp)->attr.codimension;
4495 coarray = comp->attr.codimension;
4500 if (!coarray)
4512 coarray
[all...] |
| H A D | trans-array.c | 3228 /* Use the actual tree type and not the wrapped coarray. */
4918 /* Size of a coarray for all dimensions but the last. */
5245 bool allocatable, coarray, dimension; local
5264 coarray = expr->symtree->n.sym->attr.codimension;
5270 coarray = prev_ref->u.c.component->attr.codimension;
5275 gcc_assert (coarray);
5281 if (!coarray)
5350 if (coarray && flag_coarray == GFC_FCOARRAY_LIB)
5394 && !coarray)
5416 bool coarray local
7443 gfc_trans_dealloc_allocated(tree descriptor, bool coarray, gfc_expr *expr) argument
[all...] |
| H A D | match.c | 894 gfc_error ("Loop variable at %C cannot be a coarray");
3667 bool coarray = tail->expr->symtree->n.sym->attr.codimension; local
3670 coarray = ref->u.c.component->attr.codimension;
3672 if (coarray && gfc_find_state (COMP_DO_CONCURRENT))
3674 gfc_error ("ALLOCATE of coarray at %C in DO CONCURRENT block");
3677 if (coarray && gfc_find_state (COMP_CRITICAL))
3679 gfc_error ("ALLOCATE of coarray at %C in CRITICAL block");
4049 gfc_error ("DEALLOCATE of coarray at %C in DO CONCURRENT block");
4056 gfc_error ("DEALLOCATE of coarray at %C in CRITICAL block");
|
| H A D | iresolve.c | 135 const char *name, bool coarray)
149 mpz_init_set_ui (f->shape[0], coarray ? gfc_get_corank (array)
134 resolve_bound(gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind, const char *name, bool coarray) argument
|
| H A D | trans-intrinsic.c | 1108 /* Get data from a remote coarray. */
1249 /* Send data to a remove coarray. */
1316 /* Special case: RHS is a coarray but LHS is not; this code path avoids a
1476 /* Coarray-argument version: THIS_IMAGE(coarray [, dim]). */
9434 bool coarray; local
9446 coarray = gfc_get_corank (from_expr) != 0;
9448 if (from_expr->rank == 0 && !coarray)
9627 if (coarray && flag_coarray == GFC_FCOARRAY_LIB)
|