/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | coarray_12.f90 | 16 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 D | assumed_rank_11.f90 | 9 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 D | coarray_26.f90 | 10 codimension :: res[*] ! { dg-error "CODIMENSION attribute conflicts with RESULT" } 28 codimension :: foo3[*]
|
H A D | assumed_rank_6.f90 | 34 integer, codimension[*] :: x(..) ! { dg-error "The assumed-rank array at .1. shall not have a codimension" }
|
H A D | coarray_4.f90 | 15 integer, save, codimension[1,*] :: g, h(7), i(6)[*], j[*] 17 codimension :: k[*] 43 codimension :: a[1,*] ! { dg-error "Duplicate CODIMENSION attribute" }
|
H A D | coarray_7.f90 | 150 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 D | coarray_2.f90 | 11 integer, codimension[*] :: a 37 integer, allocatable, codimension[:] :: a 63 integer, codimension[*] :: a(:) 89 integer, allocatable, codimension[:] :: a(:)
|
H A D | coarray.f95 | 11 integer, codimension[*] :: a
|
/haiku-buildtools/gcc/gcc/testsuite/gcc.dg/ |
H A D | pr46571.c | 30 unsigned codimension:1; member in struct:__anon2316
|
/haiku-buildtools/gcc/gcc/fortran/ |
H A D | primary.c | 1849 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 D | symbol.c | 374 *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 D | trans-expr.c | 567 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 D | trans-decl.c | 543 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 D | match.c | 892 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 D | resolve.c | 450 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 D | class.c | 686 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 D | trans-array.c | 5264 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 D | decl.c | 628 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 D | interface.c | 1238 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 D | trans-types.c | 1299 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 D | expr.c | 4476 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 D | trans.c | 819 && gfc_expr_attr (expr).codimension)
|
H A D | parse.c | 203 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 D | gfortran.h | 741 unsigned allocatable:1, dimension:1, codimension:1, external:1, intrinsic:1, member in struct:__anon98
|
H A D | module.c | 2039 if (attr->codimension) 2168 attr->codimension = 1;
|