gcc/fortran/trans-array.c

315   /* Should be a restricted pointer - except in the finalization wrapper.  */
436   /* Set a NULL data pointer.  */
736 /* Generate an initializer for a static pointer or allocatable array.  */
1263   /* Get the value of the current data pointer.  */
2512 	  /* Ensure that a pointer to the string is stored.  */
2600 /* Translate expressions for the descriptor and data pointer of a SS.  */
2625       /* Also the data pointer.  */
2680 /* Return an expression for the data pointer of an array.  */
2955 	  && se->ss->info->expr->symtree->n.sym->result->attr.pointer)
3200    the data pointer.
3825    descriptor and data pointer.  The range of vector subscripts is the size
4244      and F2008 12.5.2.13 items 3b and 4b. The pointer case (a) is already
4278   lsym_pointer = lsym->attr.pointer;
4280   rsym_pointer = rsym->attr.pointer;
4299       lsym_pointer = lsym_pointer || lref->u.c.sym->attr.pointer;
4320 	  rsym_pointer = rsym_pointer || rref->u.c.sym->attr.pointer;
4344   lsym_pointer = lsym->attr.pointer;
4346   lsym_pointer = lsym->attr.pointer;
4354       rsym_pointer = rsym_pointer || rref->u.c.sym->attr.pointer;
4929    calculates the offset of the base.  The pointer argument overflow,
5230   tree pointer;
5347   pointer = gfc_conv_descriptor_data_get (se->expr);
5348   STRIP_NOPS (pointer);
5354   /* The allocatable variant takes the old pointer as first argument.  */
5356     gfc_allocate_allocatable (&elseblock, pointer, size, token,
5359     gfc_allocate_using_malloc (&elseblock, pointer, size, status);
5420   /* Get a pointer to the data.  */
5429   /* Zero the data pointer; only for coarrays an error can occur and then
5719   gcc_assert (!(sym->attr.pointer || sym->attr.allocatable));
5862   /* Set the pointer itself if we aren't using the parameter directly.  */
5921   /* Do nothing for pointer and allocatable arrays.  */
5922   if (sym->attr.pointer || sym->attr.allocatable)
6006   /* Assign the data pointer.  */
6256   /* Offset the data pointer for pointer assignments from arrays with
6342   /* Set the target data pointer.  */
6502    This function is also used for array pointer assignments, and there
6507 	 pointer to the array descriptor.
6511 	 left-hand side of a pointer assignment.  On exit, se->expr
6515 	 EXPR is the right-hand side of a pointer assignment and
6607 	      /* Copy the descriptor for pointer assignments.  */
6643 	  /* For pointer assignments pass the descriptor directly.  */
6718     /* The right-hand side of a pointer assignment mustn't use a temporary.  */
6846 	  /* For pointer assignments we fill in the destination.  */
6875       /* Set offset for assignments to pointer only to zero if it is not
7002 	/* Point the data pointer at the 1st element in the section.  */
7024       /* Get a pointer to the new descriptor.  */
7103 	  ultimate_ptr_comp = ref->u.c.component->attr.pointer;
7133   /* Passing address of the array if it is not pointer or assumed-shape.  */
7142       if (!sym->attr.pointer
7181 		  && !sym->attr.pointer
7428       /* Reset the descriptor pointer.  */
7462   /* Zero the data pointer.  */
7776 	  if ((c->ts.type == BT_DERIVED && !c->attr.pointer)
7873 		&& !c->attr.pointer
7876 	      /* Do not deallocate the components of ultimate pointer
7892 	  if (c->attr.pointer || c->attr.proc_pointer)
7983 	  if (c->attr.pointer)
8788   /* Make sure that the scalarizer data pointer is updated.  */
8804 /* NULLIFY an allocatable/pointer array on function entry, free it on exit.
8827   gcc_assert (sym->attr.pointer || sym->attr.allocatable || sym_has_alloc_comp
8871       && !(sym->attr.pointer || sym->attr.allocatable))
8890       /* If the backend_decl is not a descriptor, we must have a pointer
8897   /* NULLIFY the data pointer, for non-saved allocatables.  */
8907       && !sym->attr.pointer && !sym->attr.artificial && !sym->attr.save
8918       && !sym->attr.pointer && !sym->attr.save
9229 	      || gfc_expr_attr (arg->expr).pointer))