gcc/fortran/trans-array.c

954 /* Generate an initializer for a static pointer or allocatable array.  */
4599 	  /* Catch allocatable lhs in f2003.  */
5213 	  /* Avoid using an allocatable lhs in an assignment, since
5954   bool allocatable, coarray, dimension, alloc_w_e3_arr_spec = false,
5963   /* Take the allocatable and coarray properties solely from the expr-ref's
5967       allocatable = expr->symtree->n.sym->attr.allocatable;
5973       allocatable = prev_ref->u.c.component->attr.allocatable;
5983   /* For allocatable/pointer arrays in derived types, one of the refs has to be
6057      later will mislead the generation of the array dimensions for allocatable/
6109   if (allocatable)
6122   /* The allocatable variant takes the old pointer as first argument.  */
6123   if (allocatable)
6468   gcc_assert (!(sym->attr.pointer || sym->attr.allocatable));
6685   /* Do nothing for pointer and allocatable arrays.  */
6688       || sym->attr.allocatable
6689       || (is_classarray && CLASS_DATA (sym)->attr.allocatable))
7483 		 allocatable arrays should also work.  */
7963 	 pointer/allocatable or associated.  */
7993 	  && !expr->symtree->n.sym->attr.allocatable
8134 	  ultimate_alloc_comp = ref->u.c.component->attr.allocatable;
8177 	  && !sym->attr.allocatable)
8190       if (sym->attr.allocatable)
8226      or allocatable array, an array temporary will be generated which
8239 		  || result->attr.allocatable
8248   /* Same is true of contiguous sections from allocatable variables.  */
8251 		       && expr->symtree->n.sym->attr.allocatable;
8253   /* Or ultimate allocatable components.  */
8259       /* Deallocate the allocatable components of structures that are
8305   /* Deallocate the allocatable components of structures that are
8684       attr.allocatable = 1;
8799    deallocate, nullify or copy allocatable components.  This is the work horse
8854   /* If this is an array of derived types with allocatable components
8865 	  /* Use the descriptor for an allocatable array.  Since this
9118 	  if (c->ts.type == BT_CLASS && attr->allocatable)
9148 	  if (attr->allocatable && !same_type
9187 	  else if (attr->allocatable && !attr->codimension
9190 	      /* Case of recursive allocatable derived types.  */
9268 	  if (c->ts.type == BT_CLASS && attr->allocatable
9310 	     - allocatable components (regular or in class)
9311 	     - components that have allocatable components
9316 	      || !(c->attr.allocatable || (c->ts.type == BT_CLASS
9317 					   && CLASS_DATA (c)->attr.allocatable)
9328 	      && (CLASS_DATA (c)->attr.allocatable
9352 		 allocatable variable is its declared type. An unlimited
9372 	  else if (c->attr.pointer || c->attr.allocatable)
9495 	  if (c->ts.type == BT_CLASS && CLASS_DATA (c)->attr.allocatable)
9574 	  /* To implement guarded deep copy, i.e., deep copy only allocatable
9605 	      /* This component cannot have allocatable components,
9619 	  else if ((c->attr.allocatable)
9809 	      && !(c->attr.pointer || c->attr.allocatable))
9844 	      && (!c->attr.pointer && !c->attr.allocatable))
9942    nullify allocatable components.  */
9955    deallocate allocatable components.  */
10006    deallocate allocatable components.  But do not deallocate coarrays.
10027    copy it and its allocatable components.  */
10039    copy only its allocatable components.  */
10180   /* An allocatable class variable with no reference.  */
10183       && CLASS_DATA (sym)->attr.allocatable
10195   /* An allocatable variable.  */
10196   if (sym->attr.allocatable
10203   /* All that can be left are allocatable components.  */
10221   if (ref->u.c.component->attr.allocatable
10298 /* Allocate the lhs of an assignment to an allocatable array, otherwise
10342   /* x = f(...) with x allocatable.  In this case, expr1 is the rhs.
10392   /* Since the lhs is allocatable, this must be a descriptor type.
10506   /* 7.4.1.3 "If variable is an allocated allocatable variable, it is
10634   /* Deallocation of allocatable components will have to occur on
10644      unallocated allocatable variable, then it is allocated with each
10942 /* NULLIFY an allocatable/pointer array on function entry, free it on exit.
10943    Do likewise, recursively if necessary, with the allocatable components of
10966   gcc_assert (sym->attr.pointer || sym->attr.allocatable || sym_has_alloc_comp
10995      allocatable components must not be nulled wholesale; instead they
11011       && !(sym->attr.pointer || sym->attr.allocatable))
11038   if (GFC_DESCRIPTOR_TYPE_P (type) && !sym->attr.save && sym->attr.allocatable)
11058      The allocatable components of pointers must not be touched.  */
11059   if (!sym->attr.allocatable && has_finalizer && sym->ts.type != BT_CLASS
11069   else if ((!sym->attr.allocatable || !has_finalizer)
11080   if (sym->attr.allocatable && (sym->attr.dimension || sym->attr.codimension)
11387 	      || gfc_expr_attr (arg->expr).allocatable