/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/goacc/ |
H A D | asyncwait-3.f95 | 5 real, allocatable :: a(:), b(:)
|
H A D | asyncwait-4.f95 | 5 real, allocatable :: a(:), b(:)
|
H A D | enter-exit-data.f95 | 16 real, dimension(:), allocatable :: aa 21 type(t), allocatable :: tia
|
H A D | asyncwait-1.f95 | 5 real, allocatable :: a(:), b(:)
|
H A D | asyncwait-2.f95 | 5 real, allocatable :: a(:), b(:)
|
H A D | data-clauses.f95 | 15 real, dimension(:), allocatable :: aa 21 type(t), allocatable :: tia
|
H A D | reduction.f95 | 23 integer, allocatable :: aa1 (:,:)
|
/haiku-buildtools/gcc/gcc/testsuite/gcc.dg/ |
H A D | pr46571.c | 28 unsigned allocatable:1; member in struct:__anon2316
|
/haiku-buildtools/gcc/gcc/fortran/ |
H A D | symbol.c | 328 proc->attr.allocatable = proc->result->attr.allocatable; 363 *allocatable = "ALLOCATABLE", *elemental = "ELEMENTAL", local 393 if (attr->in_namelist && (attr->allocatable || attr->pointer)) 396 a2 = attr->allocatable ? allocatable : pointer; 408 if (attr->allocatable) 409 a1 = allocatable; 474 conf (allocatable, elemental); 492 conf (allocatable, pointe [all...] |
H A D | interface.c | 445 if (dt1->attr.allocatable != dt2->attr.allocatable) 1016 && ((f1->sym->attr.allocatable && f2->sym->attr.pointer) 1017 || (f2->sym->attr.allocatable && f1->sym->attr.pointer)))) 1030 && ((sym->attr.allocatable && g->sym->attr.pointer) 1031 || (sym->attr.pointer && g->sym->attr.allocatable)))) 1099 if (s1->attr.allocatable != s2->attr.allocatable) 1301 if (r1->attr.allocatable != r2->attr.allocatable) [all...] |
H A D | primary.c | 2145 int dimension, codimension, pointer, allocatable, target; local 2162 allocatable = CLASS_DATA (sym)->attr.allocatable; 2169 allocatable = attr.allocatable; 2191 allocatable = pointer = 0; 2198 allocatable = pointer = 0; 2229 allocatable = CLASS_DATA (comp)->attr.allocatable; 2235 allocatable [all...] |
H A D | trans-expr.c | 65 else if (attr.allocatable) 93 if ((attr.pointer || attr.allocatable) && attr.intent != INTENT_IN) 308 && CLASS_DATA (ref->u.c.component)->attr.allocatable) 459 optional_alloc_ptr is false when the dummy is neither allocatable 837 optional_alloc_ptr is false when the dummy is neither allocatable 1436 "Code for reallocating the allocatable array at %L will " 1440 "Code for reallocating the allocatable variable at %L " 1586 if (!sym->attr.allocatable 1589 && !CLASS_DATA (sym)->attr.allocatable 1743 || CLASS_DATA (ref->u.c.component)->attr.allocatable)) [all...] |
H A D | resolve.c | 227 sym->attr.allocatable = ifc->attr.allocatable; 277 || sym->attr.pointer || sym->attr.allocatable 341 shape until we know if it has the pointer or allocatable attributes. 345 && !(sym->attr.pointer || sym->attr.allocatable)) 348 || CLASS_DATA (sym)->attr.allocatable))) 358 || sym->attr.pointer || sym->attr.allocatable || sym->attr.target 361 || CLASS_DATA (sym)->attr.allocatable 467 if (sym->attr.allocatable 469 && CLASS_DATA (sym)->attr.allocatable)) 6584 int allocatable, pointer; local 6811 int i, pointer, allocatable, dimension, is_abstract; local 11080 bool pointer, allocatable, dimension; local [all...] |
H A D | trans-decl.c | 545 /* Handle scalar allocatable variables. */ 546 if (attr->allocatable) 645 && sym->attr.codimension && !sym->attr.allocatable))) 665 || sym->attr.allocatable) 1027 if (sym->attr.pointer || sym->attr.allocatable 1552 || ((sym->attr.allocatable || !sym->attr.dummy) && !sym->attr.pointer)) 1557 if (sym->attr.dimension || sym->attr.allocatable || sym->attr.codimension 1560 || CLASS_DATA (sym)->attr.allocatable)) 1570 && !sym->attr.allocatable 1631 || !sym->attr.codimension || sym->attr.allocatable)) [all...] |
H A D | class.c | 34 (pointer/allocatable/dimension/...). 51 allocatable components and calls FINAL subroutines. 623 attr->class_ok = attr->dummy || attr->pointer || attr->allocatable 633 if ((*as) && attr->allocatable) 641 else if (attr->allocatable) 682 c->attr.pointer = attr->pointer || (attr->dummy && !attr->allocatable) 684 c->attr.allocatable = attr->allocatable; 737 attr->allocatable = attr->pointer = attr->dimension = attr->codimension = 0; 851 && !c->attr.pointer && !c->attr.allocatable [all...] |
H A D | parse.c | 194 match ("allocatable", gfc_match_allocatable, ST_ATTR_DECL); 415 match ("allocatable", gfc_match_allocatable, ST_ATTR_DECL); 2728 bool coarray, lock_type, event_type, allocatable, pointer; local 2729 coarray = lock_type = event_type = allocatable = pointer = false; 2731 /* Look for allocatable components. */ 2732 if (c->attr.allocatable 2734 && CLASS_DATA (c)->attr.allocatable) 2738 allocatable = true; 2784 && !allocatable && !pointer)) 2801 && !allocatable [all...] |
H A D | trans-array.c | 736 /* Generate an initializer for a static pointer or allocatable array. */ 3999 /* Catch allocatable lhs in f2003. */ 4606 /* Avoid using an allocatable lhs in an assignment, since 5245 bool allocatable, coarray, dimension; local 5263 allocatable = expr->symtree->n.sym->attr.allocatable; 5269 allocatable = prev_ref->u.c.component->attr.allocatable; 5354 /* The allocatable variant takes the old pointer as first argument. */ 5355 if (allocatable) [all...] |
H A D | frontend-passes.c | 124 For an allocatable LHS string which also appears as a variable on 149 || !expr1->symtree->n.sym->attr.allocatable) 424 /* If we don't know the shape at compile time, we create an allocatable 598 allocatable. */ 600 symbol->attr.allocatable = 1; 634 symbol->attr.allocatable = 1; 961 /* Handle dependencies for allocatable strings which potentially redefine 1000 where the array function is not elemental and not allocatable 1043 || e->value.function.esym->attr.allocatable 1705 if (a->symtree->n.sym->attr.allocatable) [all...] |
H A D | trans-types.c | 1302 if (sym->attr.pointer || sym->attr.allocatable) 2216 else if (sym->attr.allocatable) 2224 if (sym->attr.allocatable || sym->attr.pointer 2583 if (c->attr.pointer || c->attr.allocatable) 2603 else if ((c->attr.pointer || c->attr.allocatable)
|
H A D | expr.c | 2200 /* F2003, 7.1.7 (3): In init expression, allocatable components 2215 if (comp->attr.allocatable && ctor->expr 3890 if (attr.allocatable) 3974 if (comp->initializer || comp->attr.allocatable 3976 && CLASS_DATA (comp)->attr.allocatable)) 3999 if (comp->attr.allocatable 4000 || (comp->ts.type == BT_CLASS && CLASS_DATA (comp)->attr.allocatable)) 4330 /* Determine if an expression is a function with an allocatable class scalar 4340 && CLASS_DATA (expr->value.function.esym->result)->attr.allocatable) 4347 /* Determine if an expression is a function with an allocatable clas [all...] |
H A D | check.c | 464 if (!attr.allocatable || attr.associate_var) 1563 "argument or has allocatable components is not yet " 1588 gfc_error ("Support for the A argument at %L with allocatable components" 1654 if (op->rank || attr.allocatable || attr.pointer || formal->sym->as 1655 || formal->next->sym->as || formal->sym->attr.allocatable 1656 || formal->next->sym->attr.allocatable || formal->sym->attr.pointer 3407 if (!attr.pointer && !attr.proc_pointer && !attr.allocatable) 3416 if (attr.allocatable 3418 "allocatable MOLD at %L", &mold->where)) 4629 && !attr.allocatable [all...] |
H A D | openmp.c | 2698 if (sym->ts.type == BT_DERIVED && sym->attr.allocatable) 2701 if ((sym->ts.type == BT_ASSUMED && sym->attr.allocatable) 2703 && CLASS_DATA (sym)->attr.allocatable)) 2728 if (sym->attr.allocatable 2730 && CLASS_DATA (sym)->attr.allocatable)) 3083 && !n->sym->attr.allocatable 3367 if (n->sym->attr.allocatable 3369 && CLASS_DATA (n->sym)->attr.allocatable)) 3653 if (gfc_expr_attr (code->expr1).allocatable)
|
H A D | decl.c | 1127 not have the allocatable, pointer, or optional attributes, 1129 if (sym->attr.allocatable == 1 1145 if ((sym->attr.allocatable || sym->attr.pointer) && !sym->as) 1172 covered by the pointer/allocatable attribute. */ 1723 else if (c->attr.allocatable) 2153 if (initializer != NULL && current_attr.allocatable 2156 gfc_error ("Initialization of allocatable component at %C is not " 3527 /* Matched "allocatable". */ 4190 or allocatable attributes. */ 4201 if (tmp_sym->attr.allocatable [all...] |
H A D | match.c | 3690 b2 = !(CLASS_DATA (sym)->attr.allocatable 3693 b2 = sym && !(sym->attr.allocatable || sym->attr.pointer 3696 && (sym->ns->proc_name->attr.allocatable 3702 "nor an allocatable variable", &tail->expr->where); 3735 gfc_error ("Shape specification for allocatable scalar at %C"); 4065 b2 = !(CLASS_DATA (sym)->attr.allocatable 4068 b2 = sym && !(sym->attr.allocatable || sym->attr.pointer 4073 "nor an allocatable variable");
|
H A D | trans.c | 776 allocatable variable. If the variable is currently allocated, it is an 963 /* No copy back needed, hence set attr's allocatable/pointer 1004 /* No copy back needed, hence set attr's allocatable/pointer 1073 if (comp->attr.allocatable 1074 || (comp->ts.type == BT_CLASS && CLASS_DATA (comp)->attr.allocatable)) 1429 /* Generate code for deallocation of allocatable scalars (variables or 1430 components). Before the object itself is freed, any allocatable 1483 /* Free allocatable components. */
|