[flang] Add lowering of move_alloc to IntrinsicCall

[DavidTruby]

Summary

This patch relies on D141286 for the runtime implementation of
move_alloc.

[clementval]

flang/lib/Optimizer/Builder/Runtime/Allocatable.cpp

21–25

Please spell these 4 auto

flang/unittests/Optimizer/Builder/Runtime/AllocatableTest.cpp

17

[DavidTruby]

Rebase and spelling correction

[DavidTruby]

Spell out auto variables

[jeanPerier]

Apart from the bot failure, this looks good to me.

flang/test/Lower/Intrinsics/move_alloc.f90

15

There is a build bot failure here because cast from fir.ref<fir.box> to fir.box are illegal:

error: loc("/var/lib/buildkite-agent/builds/llvm-project/flang/test/Lower/Intrinsics/move_alloc.f90":14:3): 'fir.convert' op invalid type conversion

But I expect it comes from the fact that this patch dependency is not set properly. You can add D141286 as a parent revision in the "Edit related revision" link in the revision menu (at the right of the patch description). (This is done automatically of you create you patch with a description that ends with "Depends on Dxxxx", but adding this line afterwards does nothing).

[DavidTruby]

Rebase on top of runtime

[jeanPerier]

flang/unittests/Optimizer/CMakeLists.txt

34

Regarding the build bot failure, the cmake is likely missing:

DEPENDS
  FIRDialect
  FIRSupport
  HLFIRDialect
  ${dialect_libs}

which causes race condition when trying to compile the unit test files before the MLIR generated headers have been produced.

[DavidTruby]

Add dependencies to CMake test file

[DavidTruby]

Thanks for the suggested fix, I was wondering why this wasn't failing for me locally. Hopefully it will work this time!

[DavidTruby]

The new failure doesn't look related to this patch, unless I'm mistaken?

[jeanPerier]

LGTM, I do not think the windows fix has anything to do with your patch. Looks like a bot glitch when compiling the front-end.

[jeanPerier]

FYI, I have relaunched your patch build and it looks like both windows and linux succeeded, so that confirms the previous windows failure was unrelated.

flang/include/flang/Optimizer/Builder/Runtime/Allocatable.h

+//===-- Allocatable.h - generate Allocatable runtime API calls---*- C++ -*-===//
+//
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//===----------------------------------------------------------------------===//
+
+#ifndef FORTRAN_OPTIMIZER_BUILDER_RUNTIME_ALLOCATABLE_H
+#define FORTRAN_OPTIMIZER_BUILDER_RUNTIME_ALLOCATABLE_H
+
+namespace mlir {
+class Value;
+class Location;
+} // namespace mlir
+
+namespace fir {
+class FirOpBuilder;
+}
+
+namespace fir::runtime {
+
+/// Generate runtime call to assign \p sourceBox to \p destBox.
+/// \p destBox must be a fir.ref<fir.box<T>> and \p sourceBox a fir.box<T>.
+/// \p destBox Fortran descriptor may be modified if destBox is an allocatable
+/// according to Fortran allocatable assignment rules, otherwise it is not
+/// modified.
+mlir::Value genMoveAlloc(fir::FirOpBuilder &builder, mlir::Location loc,
+                         mlir::Value to, mlir::Value from, mlir::Value hasStat,
+                         mlir::Value errMsg);
+
+} // namespace fir::runtime
+#endif // FORTRAN_OPTIMIZER_BUILDER_RUNTIME_ALLOCATABLE_H

flang/lib/Lower/IntrinsicCall.cpp

 //===----------------------------------------------------------------------===//
 
 #include "flang/Lower/IntrinsicCall.h"
 #include "flang/Common/static-multimap-view.h"
 #include "flang/Lower/Mangler.h"
 #include "flang/Lower/Runtime.h"
 #include "flang/Lower/StatementContext.h"
 #include "flang/Lower/SymbolMap.h"
+#include "flang/Optimizer/Builder/BoxValue.h"
 #include "flang/Optimizer/Builder/Character.h"
 #include "flang/Optimizer/Builder/Complex.h"
 #include "flang/Optimizer/Builder/FIRBuilder.h"
 #include "flang/Optimizer/Builder/MutableBox.h"
+#include "flang/Optimizer/Builder/Runtime/Allocatable.h"
 #include "flang/Optimizer/Builder/Runtime/Character.h"
 #include "flang/Optimizer/Builder/Runtime/Command.h"
 #include "flang/Optimizer/Builder/Runtime/Inquiry.h"
 #include "flang/Optimizer/Builder/Runtime/Numeric.h"
 #include "flang/Optimizer/Builder/Runtime/RTBuilder.h"
 #include "flang/Optimizer/Builder/Runtime/Reduction.h"
 #include "flang/Optimizer/Builder/Runtime/Stop.h"
 #include "flang/Optimizer/Builder/Runtime/Transformational.h"
struct IntrinsicLibrary {
   fir::ExtendedValue genMaxloc(mlir::Type, llvm::ArrayRef<fir::ExtendedValue>);
   fir::ExtendedValue genMaxval(mlir::Type, llvm::ArrayRef<fir::ExtendedValue>);
   fir::ExtendedValue genMerge(mlir::Type, llvm::ArrayRef<fir::ExtendedValue>);
   mlir::Value genMergeBits(mlir::Type, llvm::ArrayRef<mlir::Value>);
   fir::ExtendedValue genMinloc(mlir::Type, llvm::ArrayRef<fir::ExtendedValue>);
   fir::ExtendedValue genMinval(mlir::Type, llvm::ArrayRef<fir::ExtendedValue>);
   mlir::Value genMod(mlir::Type, llvm::ArrayRef<mlir::Value>);
   mlir::Value genModulo(mlir::Type, llvm::ArrayRef<mlir::Value>);
+  void genMoveAlloc(llvm::ArrayRef<fir::ExtendedValue>);
   void genMvbits(llvm::ArrayRef<fir::ExtendedValue>);
   mlir::Value genNearest(mlir::Type, llvm::ArrayRef<mlir::Value>);
   mlir::Value genNint(mlir::Type, llvm::ArrayRef<mlir::Value>);
   fir::ExtendedValue genNorm2(mlir::Type, llvm::ArrayRef<fir::ExtendedValue>);
   mlir::Value genNot(mlir::Type, llvm::ArrayRef<mlir::Value>);
   fir::ExtendedValue genNull(mlir::Type, llvm::ArrayRef<fir::ExtendedValue>);
   fir::ExtendedValue genPack(mlir::Type, llvm::ArrayRef<fir::ExtendedValue>);
   fir::ExtendedValue genParity(mlir::Type, llvm::ArrayRef<fir::ExtendedValue>);
static constexpr IntrinsicHandler handlers[]{
     {"minval",
      &I::genMinval,
      {{{"array", asBox},
        {"dim", asValue},
        {"mask", asBox, handleDynamicOptional}}},
      /*isElemental=*/false},
     {"mod", &I::genMod},
     {"modulo", &I::genModulo},
+    {"move_alloc",
+     &I::genMoveAlloc,
+     {{{"from", asInquired},
+       {"to", asInquired},
+       {"status", asAddr, handleDynamicOptional},
+       {"errMsg", asBox, handleDynamicOptional}}},
+     /*isElemental=*/false},
     {"mvbits",
      &I::genMvbits,
      {{{"from", asValue},
        {"frompos", asValue},
        {"len", asValue},
        {"to", asAddr},
        {"topos", asValue}}}},
     {"nearest", &I::genNearest},
auto argSignDifferent =
       builder.create<mlir::arith::XOrIOp>(loc, aLessThanZero, pLessThanZero);
   auto mustAddP = builder.create<mlir::arith::AndIOp>(loc, remainderIsNotZero,
                                                       argSignDifferent);
   auto remPlusP = builder.create<mlir::arith::AddFOp>(loc, remainder, args[1]);
   return builder.create<mlir::arith::SelectOp>(loc, mustAddP, remPlusP,
                                                remainder);
 }
 
+void IntrinsicLibrary::genMoveAlloc(llvm::ArrayRef<fir::ExtendedValue> args) {
+  assert(args.size() == 4);
+
+  const fir::ExtendedValue &from = args[0];
+  const fir::ExtendedValue &to = args[1];
+  const fir::ExtendedValue &status = args[2];
+  const fir::ExtendedValue &errMsg = args[3];
+
+  mlir::Type boxNoneTy = fir::BoxType::get(builder.getNoneType());
+  mlir::Value errBox =
+      isStaticallyPresent(errMsg)
+          ? fir::getBase(errMsg)
+          : builder.create<fir::AbsentOp>(loc, boxNoneTy).getResult();
+
+  const fir::MutableBoxValue *fromBox = from.getBoxOf<fir::MutableBoxValue>();
+  const fir::MutableBoxValue *toBox = to.getBoxOf<fir::MutableBoxValue>();
+
+  assert(fromBox && toBox && "move_alloc parameters must be mutable arrays");
+
+  mlir::Value fromAddr = fir::factory::getMutableIRBox(builder, loc, *fromBox);
+  mlir::Value toAddr = fir::factory::getMutableIRBox(builder, loc, *toBox);
+
+  mlir::Value hasStat = builder.createBool(loc, isStaticallyPresent(status));
+
+  mlir::Value stat = fir::runtime::genMoveAlloc(builder, loc, toAddr, fromAddr,
+                                                hasStat, errBox);
+
+  fir::factory::syncMutableBoxFromIRBox(builder, loc, *fromBox);
+  fir::factory::syncMutableBoxFromIRBox(builder, loc, *toBox);
+
+  if (isStaticallyPresent(status)) {
+    mlir::Value statAddr = fir::getBase(status);
+    mlir::Value statIsPresentAtRuntime =
+        builder.genIsNotNullAddr(loc, statAddr);
+    builder.genIfThen(loc, statIsPresentAtRuntime)
+        .genThen([&]() { builder.createStoreWithConvert(loc, stat, statAddr); })
+        .end();
+  }
+}
+
 // MVBITS
 void IntrinsicLibrary::genMvbits(llvm::ArrayRef<fir::ExtendedValue> args) {
   // A conformant MVBITS(FROM,FROMPOS,LEN,TO,TOPOS) call satisfies:
   //     FROMPOS >= 0
   //     LEN >= 0
   //     TOPOS >= 0
   //     FROMPOS + LEN <= BIT_SIZE(FROM)
   //     TOPOS + LEN <= BIT_SIZE(TO)

flang/lib/Optimizer/Builder/CMakeLists.txt

 get_property(dialect_libs GLOBAL PROPERTY MLIR_DIALECT_LIBS)
 
 add_flang_library(FIRBuilder
   BoxValue.cpp
   Character.cpp
   Complex.cpp
   DoLoopHelper.cpp
   FIRBuilder.cpp
   HLFIRTools.cpp
   LowLevelIntrinsics.cpp
   MutableBox.cpp
+  Runtime/Allocatable.cpp
   Runtime/Assign.cpp
   Runtime/Character.cpp
   Runtime/Command.cpp
   Runtime/Derived.cpp
   Runtime/EnvironmentDefaults.cpp
   Runtime/Inquiry.cpp
   Runtime/Numeric.cpp
   Runtime/Ragged.cpp

flang/lib/Optimizer/Builder/Runtime/Allocatable.cpp

+//===-- Allocatable.cpp -- generate allocatable runtime API calls----------===//
+//
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//===----------------------------------------------------------------------===//
+
+#include "flang/Optimizer/Builder/Runtime/Allocatable.h"
+#include "flang/Optimizer/Builder/FIRBuilder.h"
+#include "flang/Optimizer/Builder/Runtime/RTBuilder.h"
+#include "flang/Runtime/allocatable.h"
+
+using namespace Fortran::runtime;
+
+mlir::Value fir::runtime::genMoveAlloc(fir::FirOpBuilder &builder,
+                                       mlir::Location loc, mlir::Value to,
+                                       mlir::Value from, mlir::Value hasStat,
+                                       mlir::Value errMsg) {
+  auto func = fir::runtime::getRuntimeFunc<mkRTKey(MoveAlloc)>(loc, builder);
+  auto fTy = func.getFunctionType();
+  auto sourceFile = fir::factory::locationToFilename(builder, loc);
+  auto sourceLine =
+      fir::factory::locationToLineNo(builder, loc, fTy.getInput(5));
+  auto args = fir::runtime::createArguments(
+      builder, loc, fTy, to, from, hasStat, errMsg, sourceFile, sourceLine);
+
+  return builder.create<fir::CallOp>(loc, func, args).getResult(0);
+}

flang/test/Lower/Intrinsics/move_alloc.f90

+  ! RUN: bbc -emit-fir %s -o - | FileCheck  %s
+  ! RUN: flang-new -fc1 -emit-fir %s -o - | FileCheck %s
+
+! CHECK-LABEL: to_from_only
+subroutine to_from_only
+  ! CHECK: %[[a1:.*]] = fir.alloca !fir.box<!fir.heap<!fir.array<?xi32>>>
+  ! CHECK: %[[b1:.*]] = fir.alloca !fir.box<!fir.heap<!fir.array<?xi32>>>
+  integer, allocatable :: from(:), to(:)
+  allocate(from(20))
+  ! CHECK: %[[errMsg:.*]] = fir.absent !fir.box<none>
+  ! CHECK: %[[false:.*]] = arith.constant false
+  ! CHECK-DAG: %[[a2:.*]] = fir.convert %[[a1]] : (!fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>) -> !fir.ref<!fir.box<none>>
+  ! CHECK-DAG: %[[b2:.*]] = fir.convert %[[b1]] : (!fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>) -> !fir.ref<!fir.box<none>>
+  call move_alloc(from, to)
+  ! CHECK: fir.call @_FortranAMoveAlloc(%[[b2]], %[[a2]], %[[false]], %[[errMsg]], %{{.*}}, %{{.*}}) fastmath<contract> : (!fir.ref<!fir.box<none>>, !fir.ref<!fir.box<none>>, i1, !fir.box<none>, !fir.ref<i8>, i32) -> i32
+  ! CHECK-DAG:  %[[a3:.*]] = fir.load %[[a1:.*]] : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
+  ! CHECK-DAG:  %[[a4:.*]] = fir.box_addr %[[a3]] : (!fir.box<!fir.heap<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
+  ! CHECK-DAG:  %[[b3:.*]] = fir.load %[[b1]] : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
+  ! CHECK-DAG:  %[[b4:.*]] = fir.box_addr %[[b3:.*]] : (!fir.box<!fir.heap<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
+end subroutine to_from_only
+
+! CHECK-LABEL: to_from_stat
+subroutine to_from_stat
+  ! CHECK-DAG: %[[a1:.*]] = fir.alloca !fir.box<!fir.heap<!fir.array<?xi32>>>
+  ! CHECK-DAG: %[[b1:.*]] = fir.alloca !fir.box<!fir.heap<!fir.array<?xi32>>>
+  integer, allocatable :: from(:), to(:)
+  ! CHECK-DAG: %[[stat1:.*]] = fir.alloca i32
+  integer :: stat
+  allocate(from(20))
+  ! CHECK: %[[errMsg:.*]] = fir.absent !fir.box<none>
+  ! CHECK: %[[true:.*]] = arith.constant true
+  ! CHECK-DAG: %[[a2:.*]] = fir.convert %[[a1]] : (!fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>) -> !fir.ref<!fir.box<none>>
+  ! CHECK-DAG: %[[b2:.*]] = fir.convert %[[b1]] : (!fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>) -> !fir.ref<!fir.box<none>>
+  call move_alloc(from, to, stat)
+  ! CHECK: %[[stat:.*]] = fir.call @_FortranAMoveAlloc(%[[b2]], %[[a2]], %[[true]], %[[errMsg]], %{{.*}}, %{{.*}}) fastmath<contract> : (!fir.ref<!fir.box<none>>, !fir.ref<!fir.box<none>>, i1, !fir.box<none>, !fir.ref<i8>, i32) -> i32
+  ! CHECK-DAG:  %[[a3:.*]] = fir.load %[[a1:.*]] : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
+  ! CHECK-DAG:  %[[a4:.*]] = fir.box_addr %[[a3]] : (!fir.box<!fir.heap<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
+  ! CHECK-DAG:  %[[b3:.*]] = fir.load %[[b1]] : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
+  ! CHECK-DAG:  %[[b4:.*]] = fir.box_addr %[[b3:.*]] : (!fir.box<!fir.heap<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
+end subroutine to_from_stat
+
+! CHECK-LABEL: to_from_stat_errmsg
+subroutine to_from_stat_errmsg
+  ! CHECK-DAG: %[[errMsg1:.*]] = fir.alloca !fir.char<1,64>
+  ! CHECK-DAG: %[[a1:.*]] = fir.alloca !fir.box<!fir.heap<!fir.array<?xi32>>>
+  ! CHECK-DAG: %[[b1:.*]] = fir.alloca !fir.box<!fir.heap<!fir.array<?xi32>>>
+  integer, allocatable :: from(:), to(:)
+  ! CHECK-DAG: %[[stat1:.*]] = fir.alloca i32
+  integer :: stat
+  character :: errMsg*64
+  allocate(from(20))
+  ! CHECK: %[[errMsg2:.*]] = fir.embox %[[errMsg1]] : (!fir.ref<!fir.char<1,64>>) -> !fir.box<!fir.char<1,64>>
+  ! CHECK: %[[true:.*]] = arith.constant true
+  ! CHECK-DAG: %[[errMsg3:.*]] = fir.convert %[[errMsg2]] : (!fir.box<!fir.char<1,64>>) -> !fir.box<none>
+  ! CHECK-DAG: %[[a2:.*]] = fir.convert %[[a1]] : (!fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>) -> !fir.ref<!fir.box<none>>
+  ! CHECK-DAG: %[[b2:.*]] = fir.convert %[[b1]] : (!fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>) -> !fir.ref<!fir.box<none>>
+  call move_alloc(from, to, stat, errMsg)
+  ! CHECK: %[[stat:.*]] = fir.call @_FortranAMoveAlloc(%[[b2]], %[[a2]], %[[true]], %[[errMsg3]], %{{.*}}, %{{.*}}) fastmath<contract> : (!fir.ref<!fir.box<none>>, !fir.ref<!fir.box<none>>, i1, !fir.box<none>, !fir.ref<i8>, i32) -> i32
+  ! CHECK-DAG:  %[[a3:.*]] = fir.load %[[a1:.*]] : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
+  ! CHECK-DAG:  %[[a4:.*]] = fir.box_addr %[[a3]] : (!fir.box<!fir.heap<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
+  ! CHECK-DAG:  %[[b3:.*]] = fir.load %[[b1]] : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
+  ! CHECK-DAG:  %[[b4:.*]] = fir.box_addr %[[b3:.*]] : (!fir.box<!fir.heap<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
+end subroutine to_from_stat_errmsg

flang/unittests/Optimizer/Builder/Runtime/AllocatableTest.cpp

+//===- AllocatableTest.cpp -- allocatable runtime builder unit tests ------===//
+//
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//===----------------------------------------------------------------------===//
+
+#include "flang/Optimizer/Builder/Runtime/Allocatable.h"
+#include "RuntimeCallTestBase.h"
+#include "gtest/gtest.h"
+#include "flang/Runtime/descriptor.h"
+
+using namespace Fortran::runtime;
+
+TEST_F(RuntimeCallTest, genMoveAlloc) {
+  auto loc = firBuilder->getUnknownLoc();
+  mlir::Type seqTy =
+      fir::SequenceType::get(fir::SequenceType::Shape(1, 10), i32Ty);
+  mlir::Value from = firBuilder->create<fir::UndefOp>(loc, seqTy);
+  mlir::Value to = firBuilder->create<fir::UndefOp>(loc, seqTy);
+  mlir::Value errMsg = firBuilder->create<fir::UndefOp>(loc, seqTy);
+  mlir::Value hasStat = firBuilder->createBool(loc, false);
+  fir::runtime::genMoveAlloc(*firBuilder, loc, to, from, hasStat, errMsg);
+  checkCallOpFromResultBox(to, "_FortranAMoveAlloc", 4);
+}

flang/unittests/Optimizer/CMakeLists.txt

 )
 
 add_flang_unittest(FlangOptimizerTests
   Builder/CharacterTest.cpp
   Builder/ComplexTest.cpp
   Builder/DoLoopHelperTest.cpp
   Builder/FIRBuilderTest.cpp
   Builder/HLFIRToolsTest.cpp
+  Builder/Runtime/AllocatableTest.cpp
   Builder/Runtime/AssignTest.cpp
   Builder/Runtime/CommandTest.cpp
   Builder/Runtime/CharacterTest.cpp
   Builder/Runtime/DerivedTest.cpp
   Builder/Runtime/NumericTest.cpp
   Builder/Runtime/RaggedTest.cpp
   Builder/Runtime/ReductionTest.cpp
   Builder/Runtime/StopTest.cpp
   Builder/Runtime/TransformationalTest.cpp
   FIRContextTest.cpp
   FIRTypesTest.cpp
   FortranVariableTest.cpp
   InternalNamesTest.cpp
   KindMappingTest.cpp
   RTBuilder.cpp
 )
 target_link_libraries(FlangOptimizerTests
   PRIVATE
   ${LIBS})