| 1 | //===-- runtime/assign-impl.h -----------------------------------*- C++ -*-===// |
|---|
| 2 | // |
|---|
| 3 | // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. |
|---|
| 4 | // See https://llvm.org/LICENSE.txt for license information. |
|---|
| 5 | // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception |
|---|
| 6 | // |
|---|
| 7 | //===----------------------------------------------------------------------===// |
|---|
| 8 | |
|---|
| 9 | #ifndef FORTRAN_RUNTIME_ASSIGN_IMPL_H_ |
|---|
| 10 | #define FORTRAN_RUNTIME_ASSIGN_IMPL_H_ |
|---|
| 11 | |
|---|
| 12 | namespace Fortran::runtime { |
|---|
| 13 | class Descriptor; |
|---|
| 14 | class Terminator; |
|---|
| 15 | |
|---|
| 16 | // Assign one object to another via allocate statement from source specifier. |
|---|
| 17 | // Note that if allocate object and source expression have the same rank, the |
|---|
| 18 | // value of the allocate object becomes the value provided; otherwise the value |
|---|
| 19 | // of each element of allocate object becomes the value provided (9.7.1.2(7)). |
|---|
| 20 | RT_API_ATTRS void DoFromSourceAssign( |
|---|
| 21 | Descriptor &, const Descriptor &, Terminator &); |
|---|
| 22 | |
|---|
| 23 | } // namespace Fortran::runtime |
|---|
| 24 | #endif // FORTRAN_RUNTIME_ASSIGN_IMPL_H_ |
|---|
| 25 | |
|---|
