19     const Descriptor &from, const typeInfo::SpecialBinding &special) {  in DoScalarDefinedAssignment()  argument
26       p(to, from);  in DoScalarDefinedAssignment()
29       p(to, from.raw().base_addr);  in DoScalarDefinedAssignment()
34       p(to.raw().base_addr, from);  in DoScalarDefinedAssignment()
37       p(to.raw().base_addr, from.raw().base_addr);  in DoScalarDefinedAssignment()
43     const Descriptor &from, const typeInfo::SpecialBinding &special,  in DoElementalDefinedAssignment()  argument
51   fromElementDesc = from;  in DoElementalDefinedAssignment()
55        ++j, to.IncrementSubscripts(toAt), from.IncrementSubscripts(fromAt)) {  in DoElementalDefinedAssignment()
57     fromElementDesc.set_base_addr(from.Element<char>(fromAt));  in DoElementalDefinedAssignment()
62 void Assign(Descriptor &to, const Descriptor &from, Terminator &terminator) {  in Assign()  argument
66   const DescriptorAddendum *fromAddendum{from.Addendum()};  in Assign()
77       if (to.type() != from.type()) {  in Assign()
92         if (from.rank() > 0) {  in Assign()
96             if (to.GetDimension(j).Extent() != from.GetDimension(j).Extent()) {  in Assign()
106     } else if (to.rank() != from.rank()) {  in Assign()
109           to.rank(), from.rank());  in Assign()
112       to.raw().type = from.raw().type;  in Assign()
113       to.raw().elem_len = from.ElementBytes();  in Assign()
123       int rank{from.rank()};  in Assign()
127         const auto &fromDim{from.GetDimension(j)};  in Assign()
145   from.GetLowerBounds(fromAt);  in Assign()
147   if (from.rank() > 0 && toElements != from.Elements()) {  in Assign()
150         toElements, from.Elements());  in Assign()
152   if (to.type() != from.type()) {  in Assign()
154         to.type().raw(), from.type().raw());  in Assign()
157   if (elementBytes != from.ElementBytes()) {  in Assign()
160         elementBytes, from.ElementBytes());  in Assign()
167         return DoScalarDefinedAssignment(to, from, *special);  in Assign()
173           to, from, *special, toElements, toAt, fromAt);  in Assign()
195                to.IncrementSubscripts(toAt), from.IncrementSubscripts(fromAt)) {  in Assign()
198                 fromCompDesc, from, terminator, fromAt);  in Assign()
204                to.IncrementSubscripts(toAt), from.IncrementSubscripts(fromAt)) {  in Assign()
206                 from.Element<const char>(fromAt) + comp.offset(),  in Assign()
214              to.IncrementSubscripts(toAt), from.IncrementSubscripts(fromAt)) {  in Assign()
216               from.Element<const char>(fromAt) + comp.offset(),  in Assign()
223              to.IncrementSubscripts(toAt), from.IncrementSubscripts(fromAt)) {  in Assign()
227               from.Element<char>(fromAt) + comp.offset())};  in Assign()
256            from.IncrementSubscripts(fromAt)) {  in Assign()
258             from.Element<const char>(fromAt) + procPtr.offset,  in Assign()
263     if (to.rank() == from.rank() && to.IsContiguous() && from.IsContiguous()) {  in Assign()
266           to.raw().base_addr, from.raw().base_addr, toElements * elementBytes);  in Assign()
269            to.IncrementSubscripts(toAt), from.IncrementSubscripts(fromAt)) {  in Assign()
270         std::memmove(to.Element<char>(toAt), from.Element<const char>(fromAt),  in Assign()
278 void RTNAME(Assign)(Descriptor &to, const Descriptor &from,  in RTNAME()
281   Assign(to, from, terminator);  in RTNAME()