1755535b5SPeter Klausler //===-- runtime/assign-impl.h -----------------------------------*- C++ -*-===// 2755535b5SPeter Klausler // 3755535b5SPeter Klausler // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4755535b5SPeter Klausler // See https://llvm.org/LICENSE.txt for license information. 5755535b5SPeter Klausler // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6755535b5SPeter Klausler // 7755535b5SPeter Klausler //===----------------------------------------------------------------------===// 8755535b5SPeter Klausler 9755535b5SPeter Klausler #ifndef FORTRAN_RUNTIME_ASSIGN_IMPL_H_ 10755535b5SPeter Klausler #define FORTRAN_RUNTIME_ASSIGN_IMPL_H_ 11755535b5SPeter Klausler 12*42be165dSValentin Clement #include "flang/Runtime/freestanding-tools.h" 13*42be165dSValentin Clement 14755535b5SPeter Klausler namespace Fortran::runtime { 15755535b5SPeter Klausler class Descriptor; 16755535b5SPeter Klausler class Terminator; 17755535b5SPeter Klausler 18755535b5SPeter Klausler // Assign one object to another via allocate statement from source specifier. 19755535b5SPeter Klausler // Note that if allocate object and source expression have the same rank, the 20755535b5SPeter Klausler // value of the allocate object becomes the value provided; otherwise the value 21755535b5SPeter Klausler // of each element of allocate object becomes the value provided (9.7.1.2(7)). 22*42be165dSValentin Clement #ifdef RT_DEVICE_COMPILATION 23*42be165dSValentin Clement RT_API_ATTRS void DoFromSourceAssign(Descriptor &, const Descriptor &, 24*42be165dSValentin Clement Terminator &, MemmoveFct memmoveFct = &MemmoveWrapper); 25*42be165dSValentin Clement #else 26*42be165dSValentin Clement RT_API_ATTRS void DoFromSourceAssign(Descriptor &, const Descriptor &, 27*42be165dSValentin Clement Terminator &, MemmoveFct memmoveFct = &Fortran::runtime::memmove); 28*42be165dSValentin Clement #endif 29755535b5SPeter Klausler 30755535b5SPeter Klausler } // namespace Fortran::runtime 31755535b5SPeter Klausler #endif // FORTRAN_RUNTIME_ASSIGN_IMPL_H_ 32