| /haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
| H A D | contiguous_3.f90 | 10 integer, pointer, contiguous :: test1_a(:)
28 integer, pointer, contiguous :: a1(:), b1(:)
50 integer, contiguous :: x(:)
|
| H A D | contiguous_1.f90 | 11 integer, contiguous :: ca(5) ! { dg-error "Component .ca. at .1. has the CONTIGUOUS" }
14 integer, contiguous, allocatable :: cb(:) ! { dg-error "Component .cb. at .1. has the CONTIGUOUS" }
17 integer, contiguous, pointer :: cc(:) ! OK
20 integer, pointer, contiguous :: cd ! { dg-error "Component .cd. at .1. has the CONTIGUOUS" }
28 contiguous :: x, y
30 integer, contiguous :: a(5) ! { dg-error ".a. at .1. has the CONTIGUOUS attribute" }
31 integer, contiguous, allocatable :: b(:) ! { dg-error ".b. at .1. has the CONTIGUOUS attribute" }
32 integer, contiguous, pointer :: c(:) ! OK
33 integer, pointer, contiguous :: d ! { dg-error ".d. at .1. has the CONTIGUOUS attribute" }
37 ! If the pointer object has the CONTIGUOUS attribute, the pointer target shall be contiguous
[all...] |
| H A D | c_loc_test_22.f90 | 9 integer, target, contiguous :: xxx(:)
|
| H A D | assumed_rank_4.f90 | 10 integer, intent(in), pointer, contiguous :: x(..)
|
| H A D | coarray_lib_token_4.f90 | 21 integer, contiguous :: y(:)[*]
|
| H A D | dummy_procedure_8.f90 | 74 integer, dimension(:), pointer, contiguous :: e2
|
| H A D | dummy_procedure_10.f90 | 35 real, contiguous :: b(:)
|
| H A D | coarray_poly_3.f90 | 9 class(t), contiguous, allocatable :: x(:)
15 class(t), contiguous, allocatable :: x(:)[:]
21 class(t), contiguous, pointer :: x(:)
22 class(t), contiguous :: y(:)
|
| H A D | transpose_4.f90 | 73 integer, intent(in), contiguous :: A(:,:), C(:,:)
|
| H A D | finalize_13.f90 | 27 type(t), intent(in), contiguous :: x(:,:)
|
| /haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/vect/ |
| H A D | vect-do-concurrent-1.f90 | 7 real, contiguous, pointer :: a(:), b(:), c(:)
|
| /haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/coarray/ |
| H A D | codimension.f90 | 21 integer, contiguous :: y(:)[*]
|
| /haiku-buildtools/gcc/libgomp/ |
| H A D | openacc.f90 | 150 type (*), dimension (..), contiguous :: a
168 type (*), dimension (..), contiguous :: a
186 type (*), dimension (..), contiguous :: a
204 type (*), dimension (..), contiguous :: a
222 type (*), dimension (..), contiguous :: a
240 type (*), dimension (..), contiguous :: a
258 type (*), dimension (..), contiguous :: a
276 type (*), dimension (..), contiguous :: a
297 type (*), dimension (..), contiguous :: a
545 ! that the arrays are contiguous
[all...] |
| H A D | openacc_lib.h | 168 type (*), dimension (..), contiguous :: a
188 type (*), dimension (..), contiguous :: a
208 type (*), dimension (..), contiguous :: a
228 type (*), dimension (..), contiguous :: a
248 type (*), dimension (..), contiguous :: a
268 type (*), dimension (..), contiguous :: a
288 type (*), dimension (..), contiguous :: a
308 type (*), dimension (..), contiguous :: a
328 type (*), dimension (..), contiguous :: a
348 type (*), dimension (..), contiguous
[all...] |
| /haiku-buildtools/gcc/gcc/testsuite/gcc.dg/ |
| H A D | pr46571.c | 34 unsigned contiguous:1; member in struct:__anon2316
|
| /haiku-buildtools/gcc/gcc/fortran/ |
| H A D | dependency.c | 1307 && ((sym1->attr.dummy && !sym1->attr.contiguous
1310 || (sym2->attr.dummy && !sym2->attr.contiguous
1886 contiguous; eg. (:, 1) gives true but (1,:) gives false.
1892 gfc_full_array_ref_p (gfc_ref *ref, bool *contiguous) argument
1899 if (contiguous)
1900 *contiguous = false;
1907 if (contiguous)
1908 *contiguous = true;
1925 /* This is unconditionally a contiguous reference if all the
1927 if (contiguous)
[all...] |
| H A D | trans-types.c | 614 real ... occupies two contiguous numeric storage units.
1328 bool contiguous)
1370 akind = contiguous ? GFC_ARRAY_ASSUMED_SHAPE_CONT
1373 akind = contiguous ? GFC_ARRAY_ASSUMED_RANK_CONT
2214 akind = sym->attr.contiguous ? GFC_ARRAY_POINTER_CONT
2219 sym->attr.contiguous);
2587 akind = c->attr.contiguous ? GFC_ARRAY_POINTER_CONT
2596 c->attr.contiguous);
1320 gfc_build_array_type(tree type, gfc_array_spec * as, enum gfc_array_kind akind, bool restricted, bool contiguous) argument
|
| H A D | interface.c | 1131 if (s1->attr.contiguous != s2->attr.contiguous)
1317 if (r1->attr.contiguous != r2->attr.contiguous)
2009 if (formal->attr.pointer && formal->attr.contiguous
2013 gfc_error ("Actual argument to contiguous pointer dummy %qs at %L "
2014 "must be simply contiguous", formal->name, &actual->where);
2123 && (formal->attr.contiguous || formal->as->type != AS_ASSUMED_SHAPE)
2129 "contiguous", formal->name, &actual->where);
2172 || formal->attr.contiguous))
[all...] |
| H A D | symbol.c | 375 *contiguous = "CONTIGUOUS", *generic = "GENERIC"; local
538 conf (cray_pointer, contiguous);
550 conf (cray_pointee, contiguous);
640 conf2 (contiguous);
752 conf2 (contiguous);
968 attr->contiguous = 1;
1782 if (src->contiguous && !gfc_add_contiguous (dest, NULL, where))
|
| H A D | trans-array.c | 4247 && ((lsym->attr.dummy && !lsym->attr.contiguous
4249 || (rsym->attr.dummy && !rsym->attr.contiguous
5954 is contiguous. Repacking higher dimensions wouldn't gain us
7083 bool contiguous; local
7109 contiguous = false;
7112 full_array_var = gfc_full_array_ref_p (ref, &contiguous);
7175 contiguous = g77 && !this_array_result && contiguous;
7177 /* There is no need to pack and unpack the array, if it is contiguous
7179 contiguous
[all...] |
| H A D | expr.c | 3696 /* The target must be either rank one or it must be simply contiguous
3703 " simply contiguous at %L", &rvalue->where);
4611 /* Check whether an expression is "simply contiguous", cf. F2008, 6.5.4.
4612 Note: A scalar is not regarded as "simply contiguous" by the standard.
4627 ? expr->value.function.esym->result->attr.contiguous : false;
4650 && !part_ref->u.c.component->attr.contiguous
4653 && !sym->attr.contiguous
4664 /* Check for simply contiguous array */
4680 /* If the previous section was not contiguous, that's an error,
4691 "(lbound:ubound)" are not simply contiguous; i
[all...] |
| H A D | class.c | 1223 && (is_contiguous || !final_rank3->attr.contiguous
1291 && ((fini's as->ASSUMED_SIZE && !fini's attr.contiguous)
1317 || fini->proc_tree->n.sym->formal->sym->attr.contiguous)
1502 where the array has to be contiguous (except of the lowest dimension). The
1619 array->attr.contiguous = 1;
|
| H A D | gfortran.h | 745 contiguous:1, fe_temp: 1; member in struct:__anon98
|
| H A D | module.c | 2041 if (attr->contiguous)
2171 attr->contiguous = 1;
|
| H A D | resolve.c | 232 sym->attr.contiguous = ifc->attr.contiguous;
12634 if (c->attr.contiguous && (!c->attr.dimension || !c->attr.pointer))
13383 sym->attr.contiguous = sym->result->attr.contiguous;
13409 if (sym->attr.contiguous
|