Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/class.cc

Lines Matching refs:allocatable
34              (pointer/allocatable/dimension/...).
51 		 allocatable components and calls FINAL subroutines.
655       && ts->u.derived->components->attr.allocatable >= attr->allocatable)
662       attr->allocatable |= ts->u.derived->components->attr.allocatable;
666   attr->class_ok = attr->dummy || attr->pointer || attr->allocatable
680   if ((*as) && attr->allocatable)
688   else if (attr->allocatable)
752       c->attr.pointer = attr->pointer || (attr->dummy && !attr->allocatable)
754       c->attr.allocatable = attr->allocatable;
807   attr->allocatable = attr->pointer = attr->dimension = attr->codimension = 0;
912     if (c->ts.type == BT_DERIVED && !c->attr.pointer && !c->attr.allocatable)
934   else if (comp->attr.allocatable && comp->ts.type != BT_CLASS)
943 	    && CLASS_DATA (comp)->attr.allocatable)
950 /* Call DEALLOCATE for the passed component if it is allocatable, if it is
951    neither allocatable nor a pointer but has a finalizer, call it. If it
952    is a nonpointer component with allocatable components or has finalizers, walk
955    Note: If the component is allocatable, the DEALLOCATE handling takes care
957    deallocation of allocatable subcomponents.  */
1009   if (comp->attr.allocatable
1011 	  && CLASS_DATA (comp)->attr.allocatable))
1593    subroutine, then it DEALLOCATEs (finalizes/frees) the allocatable
1597    If neither allocatable components nor FINAL subroutines exists, the vtab
1644   /* No wrapper of the ancestor and no own FINAL subroutines and allocatable
1657     /* Check whether there are new allocatable components.  */
1667   /* If there is no new finalizer and no new allocatable, return with
1681      2. Loop over all noninherited allocatable components and noninherited
1682 	components with allocatable components and DEALLOCATE those; this will
1683 	take care of finalizers, coarray deregistering and allocatable
2168   /* Finalize and deallocate allocatable components. The same manual
2370 	      /* Is this a derived type with recursive allocatable
2544 		 a wrapper which handles both the freeing of allocatable
2599 		  arg->attr.allocatable = 1;
2679 	&& !c->attr.pointer && !c->attr.proc_pointer && !c->attr.allocatable
OpenGrok
