Searched refs:allocatable (Results 1 - 25 of 31) sorted by relevance

12

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/goacc/
H A Dasyncwait-3.f955 real, allocatable :: a(:), b(:)
H A Dasyncwait-4.f955 real, allocatable :: a(:), b(:)
H A Denter-exit-data.f9516 real, dimension(:), allocatable :: aa
21 type(t), allocatable :: tia
H A Dasyncwait-1.f955 real, allocatable :: a(:), b(:)
H A Dasyncwait-2.f955 real, allocatable :: a(:), b(:)
H A Ddata-clauses.f9515 real, dimension(:), allocatable :: aa
21 type(t), allocatable :: tia
H A Dreduction.f9523 integer, allocatable :: aa1 (:,:)
/haiku-buildtools/gcc/gcc/testsuite/gcc.dg/
H A Dpr46571.c28 unsigned allocatable:1; member in struct:__anon2316
/haiku-buildtools/gcc/gcc/fortran/
H A Dsymbol.c328 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 Dinterface.c445 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 Dprimary.c2145 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 Dtrans-expr.c65 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 Dresolve.c227 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 Dtrans-decl.c545 /* 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 Dclass.c34 (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 Dparse.c194 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 Dtrans-array.c736 /* 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 Dfrontend-passes.c124 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 Dtrans-types.c1302 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 Dexpr.c2200 /* 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 Dcheck.c464 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 Dopenmp.c2698 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 Ddecl.c1127 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 Dmatch.c3690 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 Dtrans.c776 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. */

Completed in 461 milliseconds

12