Searched refs:codimension (Results 1 - 25 of 26) sorted by relevance

12

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
H A Dcoarray_12.f9016 integer, allocatable, dimension(:),codimension[:] :: b(:,:,:)[:,:]
17 integer, allocatable, dimension(:,:),codimension[:,:,:] :: c
18 integer, allocatable, dimension(:,:),codimension[:,:,:] :: d[:,:]
19 integer, allocatable, dimension(:,:,:),codimension[:,:,:] :: e(:,:)
20 integer, allocatable, dimension(:,:,:),codimension[:,:,:] :: f(:,:)[:,:]
H A Dassumed_rank_11.f909 codimension :: x[*] ! { dg-error "The assumed-rank array 'x' at .1. shall not have a codimension" }
13 integer, dimension(..) :: x[*] ! { dg-error "The assumed-rank array at .1. shall not have a codimension" }
17 integer, codimension[*] :: x(..) ! { dg-error "The assumed-rank array at .1. shall not have a codimension" }
21 integer, codimension[*], dimension(..) :: x ! { dg-error "The assumed-rank array at .1. shall not have a codimension" }
26 dimension :: x(..) ! { dg-error "The assumed-rank array 'x' at .1. shall not have a codimension" }
31 codimension :: x[*]
32 dimension :: x(..) ! { dg-error "The assumed-rank array 'x' at .1. shall not have a codimension" }
[all...]
H A Dcoarray_26.f9010 codimension :: res[*] ! { dg-error "CODIMENSION attribute conflicts with RESULT" }
28 codimension :: foo3[*]
H A Dassumed_rank_6.f9034 integer, codimension[*] :: x(..) ! { dg-error "The assumed-rank array at .1. shall not have a codimension" }
H A Dcoarray_4.f9015 integer, save, codimension[1,*] :: g, h(7), i(6)[*], j[*]
17 codimension :: k[*]
43 codimension :: a[1,*] ! { dg-error "Duplicate CODIMENSION attribute" }
H A Dcoarray_7.f90150 real, allocatable, codimension[:,:] :: a,b,c
165 type(co_double_3),save, codimension[*] :: work
173 print *, i[*] ! { dg-error "Coindex of codimension 1 must be a scalar" }
/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/goacc/
H A Dcoarray_2.f9011 integer, codimension[*] :: a
37 integer, allocatable, codimension[:] :: a
63 integer, codimension[*] :: a(:)
89 integer, allocatable, codimension[:] :: a(:)
H A Dcoarray.f9511 integer, codimension[*] :: a
/haiku-buildtools/gcc/gcc/testsuite/gcc.dg/
H A Dpr46571.c30 unsigned codimension:1; member in struct:__anon2316
/haiku-buildtools/gcc/gcc/fortran/
H A Dprimary.c1849 if ((sym->ts.type != BT_CLASS && !sym->attr.codimension)
1851 && !CLASS_DATA (sym)->attr.codimension))
1870 || gfc_peek_ascii_char () == '[' || sym->attr.codimension
1877 || CLASS_DATA (sym)->attr.codimension)))
2145 int dimension, codimension, pointer, allocatable, target; local
2160 codimension = CLASS_DATA (sym)->attr.codimension;
2167 codimension = attr.codimension;
2227 codimension
[all...]
H A Dsymbol.c374 *asynchronous = "ASYNCHRONOUS", *codimension = "CODIMENSION", local
473 conf (pointer, codimension);
500 conf (in_common, codimension);
504 conf (in_equivalence, codimension);
526 conf (is_bind_c, codimension);
537 conf (cray_pointer, codimension);
551 conf (cray_pointee, codimension);
575 conf (value, codimension)
578 conf (codimension, result)
606 conf (procedure, codimension)
[all...]
H A Dtrans-expr.c567 if (gfc_expr_attr (e).codimension)
876 if (e->rank == 0 && gfc_expr_attr (e).codimension
1598 || sym->attr.codimension))
1741 && !CLASS_DATA (ref->u.c.component)->attr.codimension
1745 && !ref->u.c.component->attr.codimension
1774 && CLASS_DATA (ref->u.c.component)->attr.codimension)
1776 && ref->u.c.component->attr.codimension)))
1794 if (expr->symtree->n.sym->attr.codimension)
1812 if (comp->attr.codimension)
2271 && (!c->attr.dimension && !c->attr.codimension)
[all...]
H A Dtrans-decl.c543 if (!attr->dimension && !attr->codimension)
645 && sym->attr.codimension && !sym->attr.allocatable)))
832 if (sym->attr.codimension && flag_coarray == GFC_FCOARRAY_LIB
1434 if ((sym->attr.dimension || sym->attr.codimension)
1546 if (sym->attr.dimension || sym->attr.codimension)
1557 if (sym->attr.dimension || sym->attr.allocatable || sym->attr.codimension
1631 || !sym->attr.codimension || sym->attr.allocatable))
1640 || (sym->attr.codimension
2395 && ((f->sym->ts.type != BT_CLASS && f->sym->attr.codimension
2398 && CLASS_DATA (f->sym)->attr.codimension
[all...]
H A Dmatch.c892 if (var->symtree->n.sym->attr.codimension)
3667 bool coarray = tail->expr->symtree->n.sym->attr.codimension;
3670 coarray = ref->u.c.component->attr.codimension;
5423 || CLASS_DATA (select_type_stack->selector)->attr.codimension))
5428 tmp->n.sym->attr.codimension
5429 = CLASS_DATA (select_type_stack->selector)->attr.codimension;
5478 || CLASS_DATA (select_type_stack->selector)->attr.codimension)
5482 tmp->n.sym->attr.codimension
5483 = CLASS_DATA (select_type_stack->selector)->attr.codimension;
5573 || CLASS_DATA (expr1)->attr.codimension)
[all...]
H A Dresolve.c450 if (sym->attr.codimension
452 && CLASS_DATA (sym)->attr.codimension))
1380 || a.asynchronous || a.codimension)
2288 else if (arg->sym->attr.codimension) /* (2c) */
4019 "(%ld < %ld) in codimension %d", &ar->c_where[i],
4034 "(%ld > %ld) in codimension %d", &ar->c_where[i],
4176 gfc_error ("Coindex of codimension %d must be a scalar at %L",
6812 int codimension; local
6855 codimension = attr.codimension;
[all...]
H A Dclass.c686 c->attr.codimension = attr->codimension;
737 attr->allocatable = attr->pointer = attr->dimension = attr->codimension = 0;
915 if (comp->attr.dimension || comp->attr.codimension
918 || CLASS_DATA (comp)->attr.codimension)))
937 if (comp->attr.codimension
939 && CLASS_DATA (comp)->attr.codimension))
H A Dtrans-array.c5264 coarray = expr->symtree->n.sym->attr.codimension;
5270 coarray = prev_ref->u.c.component->attr.codimension;
7792 || (c->attr.codimension
7798 tmp = gfc_trans_dealloc_allocated (comp, c->attr.codimension, NULL);
7801 else if (c->attr.allocatable && !c->attr.codimension)
7819 && (!CLASS_DATA (c)->attr.codimension
7831 CLASS_DATA (c)->attr.codimension, NULL);
7895 && (c->attr.dimension|| c->attr.codimension))
7952 if (!c->attr.codimension
7963 if (c->attr.codimension)
[all...]
H A Ddecl.c628 gfc_error ("The assumed-rank array at %C shall not have a codimension");
1223 attr.codimension = 0;
1658 c->attr.codimension = 1;
3736 gfc_error ("Missing codimension specification at %C");
6509 || current_attr.codimension
6514 m = gfc_match_array_spec (&as, !current_attr.codimension,
6537 if (current_attr.codimension && m == MATCH_NO)
6567 if (current_attr.dimension == 0 && current_attr.codimension == 0
6905 current_attr.codimension = 1;
7432 if (sym->ns != gfc_current_ns && sym->attr.codimension)
[all...]
H A Dinterface.c1238 snprintf (errmsg, err_len, "Shape mismatch in codimension %i "
2089 if (formal->attr.codimension && !gfc_is_coarray (actual))
2097 if (formal->attr.codimension && formal->attr.allocatable)
2119 if (formal->attr.codimension)
2182 if (formal->attr.allocatable && !formal->attr.codimension
2183 && gfc_expr_attr (actual).codimension)
H A Dtrans-types.c1299 gcc_assert (sym->attr.dimension || sym->attr.codimension);
1334 /* Assumed-shape arrays do not have codimension information stored in the
2193 if (sym->attr.dimension || sym->attr.codimension)
2581 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer )
H A Dexpr.c4476 coarray = CLASS_DATA (sym)->attr.codimension;
4478 coarray = sym->attr.codimension;
4490 coarray = CLASS_DATA (comp)->attr.codimension;
4495 coarray = comp->attr.codimension;
H A Dtrans.c819 && gfc_expr_attr (expr).codimension)
H A Dparse.c203 match ("codimension", gfc_match_codimension, ST_ATTR_DECL);
436 match ("codimension", gfc_match_codimension, ST_ATTR_DECL);
2759 if (c->attr.codimension
2761 && CLASS_DATA (c)->attr.codimension))
2815 "codimension or be a subcomponent of a coarray, "
2821 "of type LOCK_TYPE, which must have a codimension or be a "
2826 "a codimension", c->name, &c->loc);
2829 gfc_error ("Allocatable component %s at %L must have a codimension as "
2835 "subcomponent of type LOCK_TYPE must have a codimension or "
2837 "not have a codimension a
[all...]
H A Dgfortran.h741 unsigned allocatable:1, dimension:1, codimension:1, external:1, intrinsic:1, member in struct:__anon98
H A Dmodule.c2039 if (attr->codimension)
2168 attr->codimension = 1;

Completed in 576 milliseconds

12