xref: /llvm-project/flang/unittests/Optimizer/Builder/Runtime/AllocatableTest.cpp (revision c91ba04328e1ded6f284469a7828d181324d4e30)
1 //===- AllocatableTest.cpp -- allocatable runtime builder unit tests ------===//
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 "flang/Optimizer/Builder/Runtime/Allocatable.h"
10 #include "RuntimeCallTestBase.h"
11 #include "gtest/gtest.h"
12 #include "flang/Runtime/descriptor-consts.h"
13 
14 using namespace Fortran::runtime;
15 
16 TEST_F(RuntimeCallTest, genMoveAlloc) {
17   mlir::Location loc = firBuilder->getUnknownLoc();
18   mlir::Type seqTy =
19       fir::SequenceType::get(fir::SequenceType::Shape(1, 10), i32Ty);
20   mlir::Value from = firBuilder->create<fir::UndefOp>(loc, seqTy);
21   mlir::Value to = firBuilder->create<fir::UndefOp>(loc, seqTy);
22   mlir::Value errMsg = firBuilder->create<fir::UndefOp>(loc, seqTy);
23   mlir::Value hasStat = firBuilder->createBool(loc, false);
24   fir::runtime::genMoveAlloc(*firBuilder, loc, to, from, hasStat, errMsg);
25   checkCallOpFromResultBox(to, "_FortranAMoveAlloc", 5);
26 }
27