16 void RTNAME(AllocatableInitIntrinsic)(Descriptor &descriptor,  in RTNAME()
19   descriptor.Establish(TypeCode{category, kind},  in RTNAME()
20       Descriptor::BytesFor(category, kind), nullptr, rank, nullptr,  in RTNAME()
24 void RTNAME(AllocatableInitCharacter)(Descriptor &descriptor,  in RTNAME()
27   descriptor.Establish(  in RTNAME()
31 void RTNAME(AllocatableInitDerived)(Descriptor &descriptor,  in RTNAME()
34   descriptor.Establish(  in RTNAME()
38 void RTNAME(AllocatableAssign)(Descriptor &to, const Descriptor & /*from*/) {  in RTNAME()
42 int RTNAME(MoveAlloc)(Descriptor &to, const Descriptor & /*from*/,  in RTNAME()
43     bool /*hasStat*/, Descriptor * /*errMsg*/, const char * /*sourceFile*/,  in RTNAME()
49 void RTNAME(AllocatableSetBounds)(Descriptor &descriptor, int zeroBasedDim,  in RTNAME()
51   INTERNAL_CHECK(zeroBasedDim >= 0 && zeroBasedDim < descriptor.rank());  in RTNAME()
52   descriptor.GetDimension(zeroBasedDim).SetBounds(lower, upper);  in RTNAME()
56 int RTNAME(AllocatableAllocate)(Descriptor &descriptor, bool hasStat,  in RTNAME()
57     Descriptor *errMsg, const char *sourceFile, int sourceLine) {  in RTNAME()
59   if (!descriptor.IsAllocatable()) {  in RTNAME()
62   if (descriptor.IsAllocated()) {  in RTNAME()
65   return ReturnError(terminator, descriptor.Allocate(), errMsg, hasStat);  in RTNAME()
68 int RTNAME(AllocatableDeallocate)(Descriptor &descriptor, bool hasStat,  in RTNAME()
69     Descriptor *errMsg, const char *sourceFile, int sourceLine) {  in RTNAME()
71   if (!descriptor.IsAllocatable()) {  in RTNAME()
74   if (!descriptor.IsAllocated()) {  in RTNAME()
77   return ReturnError(terminator, descriptor.Deallocate(), errMsg, hasStat);  in RTNAME()