19 void RTNAME(AllocatableInitIntrinsic)(Descriptor &descriptor,  in RTNAME()
22   descriptor.Establish(TypeCode{category, kind},  in RTNAME()
27 void RTNAME(AllocatableInitCharacter)(Descriptor &descriptor,  in RTNAME()
30   descriptor.Establish(  in RTNAME()
34 void RTNAME(AllocatableInitDerived)(Descriptor &descriptor,  in RTNAME()
37   descriptor.Establish(  in RTNAME()
48 void RTNAME(AllocatableSetBounds)(Descriptor &descriptor, int zeroBasedDim,  in RTNAME()
50   INTERNAL_CHECK(zeroBasedDim >= 0 && zeroBasedDim < descriptor.rank());  in RTNAME()
51   descriptor.GetDimension(zeroBasedDim).SetBounds(lower, upper);  in RTNAME()
56     Descriptor &descriptor, int which, SubscriptValue x) {  in RTNAME()
57   DescriptorAddendum *addendum{descriptor.Addendum()};  in RTNAME()
63     Descriptor &descriptor, const Descriptor &mold) {  in RTNAME()
64   descriptor = mold;  in RTNAME()
65   descriptor.set_base_addr(nullptr);  in RTNAME()
66   descriptor.raw().attribute = CFI_attribute_allocatable;  in RTNAME()
69 int RTNAME(AllocatableAllocate)(Descriptor &descriptor, bool hasStat,  in RTNAME()
72   if (!descriptor.IsAllocatable()) {  in RTNAME()
75   if (descriptor.IsAllocated()) {  in RTNAME()
78   int stat{ReturnError(terminator, descriptor.Allocate(), errMsg, hasStat)};  in RTNAME()
80     if (const DescriptorAddendum * addendum{descriptor.Addendum()}) {  in RTNAME()
83           stat = Initialize(descriptor, *derived, terminator, hasStat, errMsg);  in RTNAME()
91 int RTNAME(AllocatableDeallocate)(Descriptor &descriptor, bool hasStat,  in RTNAME()
94   if (!descriptor.IsAllocatable()) {  in RTNAME()
97   if (!descriptor.IsAllocated()) {  in RTNAME()
100   return ReturnError(terminator, descriptor.Destroy(true), errMsg, hasStat);  in RTNAME()
104     Descriptor &descriptor, const char *sourceFile, int sourceLine) {  in RTNAME()
106   if (!descriptor.IsAllocatable()) {  in RTNAME()
108   } else if (!descriptor.IsAllocated()) {  in RTNAME()
111     ReturnError(terminator, descriptor.Destroy(false));  in RTNAME()