1 //===-- runtime/allocatable.cpp ---------------------------------*- 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 #include "allocatable.h"
10 #include "terminator.h"
11 
12 namespace Fortran::runtime {
13 extern "C" {
14 
15 void RTNAME(AllocatableInitIntrinsic)(
16     Descriptor &, TypeCategory, int /*kind*/, int /*rank*/, int /*corank*/) {
17   // TODO
18 }
19 
20 void RTNAME(AllocatableInitCharacter)(Descriptor &, SubscriptValue /*length*/,
21     int /*kind*/, int /*rank*/, int /*corank*/) {
22   // TODO
23 }
24 
25 void RTNAME(AllocatableInitDerived)(
26     Descriptor &, const DerivedType &, int /*rank*/, int /*corank*/) {
27   // TODO
28 }
29 
30 void RTNAME(AllocatableAssign)(Descriptor &to, const Descriptor & /*from*/) {}
31 
32 int RTNAME(MoveAlloc)(Descriptor &to, const Descriptor & /*from*/,
33     bool /*hasStat*/, Descriptor * /*errMsg*/, const char * /*sourceFile*/,
34     int /*sourceLine*/) {
35   // TODO
36   return 0;
37 }
38 
39 int RTNAME(AllocatableDeallocate)(Descriptor &, bool /*hasStat*/,
40     Descriptor * /*errMsg*/, const char * /*sourceFile*/, int /*sourceLine*/) {
41   // TODO
42   return 0;
43 }
44 }
45 } // namespace Fortran::runtime
46