19 void RTNAME(PointerNullifyIntrinsic)(Descriptor &pointer, TypeCategory category,  in RTNAME()
22   pointer.Establish(TypeCode{category, kind},  in RTNAME()
27 void RTNAME(PointerNullifyCharacter)(Descriptor &pointer, SubscriptValue length,  in RTNAME()
30   pointer.Establish(  in RTNAME()
34 void RTNAME(PointerNullifyDerived)(Descriptor &pointer,  in RTNAME()
37   pointer.Establish(derivedType, nullptr, rank, nullptr, CFI_attribute_pointer);  in RTNAME()
40 void RTNAME(PointerSetBounds)(Descriptor &pointer, int zeroBasedDim,  in RTNAME()
42   INTERNAL_CHECK(zeroBasedDim >= 0 && zeroBasedDim < pointer.rank());  in RTNAME()
43   pointer.GetDimension(zeroBasedDim).SetBounds(lower, upper);  in RTNAME()
50     Descriptor &pointer, int which, SubscriptValue x) {  in RTNAME()
51   DescriptorAddendum *addendum{pointer.Addendum()};  in RTNAME()
56 void RTNAME(PointerApplyMold)(Descriptor &pointer, const Descriptor &mold) {  in RTNAME()
57   pointer = mold;  in RTNAME()
58   pointer.set_base_addr(nullptr);  in RTNAME()
59   pointer.raw().attribute = CFI_attribute_pointer;  in RTNAME()
62 void RTNAME(PointerAssociateScalar)(Descriptor &pointer, void *target) {  in RTNAME()
63   pointer.set_base_addr(target);  in RTNAME()
66 void RTNAME(PointerAssociate)(Descriptor &pointer, const Descriptor &target) {  in RTNAME()
67   pointer = target;  in RTNAME()
68   pointer.raw().attribute = CFI_attribute_pointer;  in RTNAME()
71 void RTNAME(PointerAssociateLowerBounds)(Descriptor &pointer,  in RTNAME()
73   pointer = target;  in RTNAME()
74   pointer.raw().attribute = CFI_attribute_pointer;  in RTNAME()
75   int rank{pointer.rank()};  in RTNAME()
79     Dimension &dim{pointer.GetDimension(j)};  in RTNAME()
87 void RTNAME(PointerAssociateRemapping)(Descriptor &pointer,  in RTNAME()
90   pointer = target;  in RTNAME()
91   pointer.raw().attribute = CFI_attribute_pointer;  in RTNAME()
92   int rank{pointer.rank()};  in RTNAME()
97     auto &dim{pointer.GetDimension(j)};  in RTNAME()
109   if (pointer.Elements() > target.Elements()) {  in RTNAME()
112         pointer.Elements(), target.Elements());  in RTNAME()
116 int RTNAME(PointerAllocate)(Descriptor &pointer, bool hasStat,  in RTNAME()
119   if (!pointer.IsPointer()) {  in RTNAME()
122   int stat{ReturnError(terminator, pointer.Allocate(), errMsg, hasStat)};  in RTNAME()
124     if (const DescriptorAddendum * addendum{pointer.Addendum()}) {  in RTNAME()
127           stat = Initialize(pointer, *derived, terminator, hasStat, errMsg);  in RTNAME()
135 int RTNAME(PointerDeallocate)(Descriptor &pointer, bool hasStat,  in RTNAME()
138   if (!pointer.IsPointer()) {  in RTNAME()
141   if (!pointer.IsAllocated()) {  in RTNAME()
144   return ReturnError(terminator, pointer.Destroy(true, true), errMsg, hasStat);  in RTNAME()
147 bool RTNAME(PointerIsAssociated)(const Descriptor &pointer) {  in RTNAME()
148   return pointer.raw().base_addr != nullptr;  in RTNAME()
152     const Descriptor &pointer, const Descriptor *target) {  in RTNAME()
154     return pointer.raw().base_addr != nullptr;  in RTNAME()
159   int rank{pointer.rank()};  in RTNAME()
160   if (pointer.raw().base_addr != target->raw().base_addr ||  in RTNAME()
161       pointer.ElementBytes() != target->ElementBytes() ||  in RTNAME()
166     const Dimension &pDim{pointer.GetDimension(j)};  in RTNAME()