[flang-commits] [flang] 0998da2 - Revert "[MLIR][OpenMP] Add a new AutomapToTargetData conversion pass in FIR (#151989)"
Akash Banerjee via flang-commits
flang-commits at lists.llvm.org
Mon Aug 11 05:52:58 PDT 2025
Author: Akash Banerjee
Date: 2025-08-11T13:52:39+01:00
New Revision: 0998da27e90f3d8c3c78429584ae15afebbe91f2
URL: https://github.com/llvm/llvm-project/commit/0998da27e90f3d8c3c78429584ae15afebbe91f2
DIFF: https://github.com/llvm/llvm-project/commit/0998da27e90f3d8c3c78429584ae15afebbe91f2.diff
LOG: Revert "[MLIR][OpenMP] Add a new AutomapToTargetData conversion pass in FIR (#151989)"
This reverts commit 5a5e8ba0c388d57aecb359ed67919cda429fc7b1.
Added:
Modified:
flang/include/flang/Optimizer/OpenMP/Passes.td
flang/include/flang/Support/OpenMP-utils.h
flang/lib/Optimizer/OpenMP/CMakeLists.txt
flang/lib/Optimizer/OpenMP/MapsForPrivatizedSymbols.cpp
flang/lib/Optimizer/Passes/Pipelines.cpp
flang/lib/Support/OpenMP-utils.cpp
Removed:
flang/lib/Optimizer/OpenMP/AutomapToTargetData.cpp
flang/test/Transforms/omp-automap-to-target-data.fir
offload/test/offloading/fortran/declare-target-automap.f90
################################################################################
diff --git a/flang/include/flang/Optimizer/OpenMP/Passes.td b/flang/include/flang/Optimizer/OpenMP/Passes.td
index 0bff58f0f6394..704faf0ccd856 100644
--- a/flang/include/flang/Optimizer/OpenMP/Passes.td
+++ b/flang/include/flang/Optimizer/OpenMP/Passes.td
@@ -112,15 +112,4 @@ def GenericLoopConversionPass
];
}
-def AutomapToTargetDataPass
- : Pass<"omp-automap-to-target-data", "::mlir::ModuleOp"> {
- let summary = "Insert OpenMP target data operations for AUTOMAP variables";
- let description = [{
- Inserts `omp.target_enter_data` and `omp.target_exit_data` operations to
- map variables marked with the `AUTOMAP` modifier when their allocation
- or deallocation is detected in the FIR.
- }];
- let dependentDialects = ["mlir::omp::OpenMPDialect"];
-}
-
#endif //FORTRAN_OPTIMIZER_OPENMP_PASSES
diff --git a/flang/include/flang/Support/OpenMP-utils.h b/flang/include/flang/Support/OpenMP-utils.h
index a94640b91a047..6d9db2b682c50 100644
--- a/flang/include/flang/Support/OpenMP-utils.h
+++ b/flang/include/flang/Support/OpenMP-utils.h
@@ -9,8 +9,6 @@
#ifndef FORTRAN_SUPPORT_OPENMP_UTILS_H_
#define FORTRAN_SUPPORT_OPENMP_UTILS_H_
-#include "flang/Optimizer/Builder/FIRBuilder.h"
-#include "flang/Optimizer/Dialect/FIRType.h"
#include "flang/Semantics/symbol.h"
#include "mlir/IR/Builders.h"
@@ -74,14 +72,6 @@ struct EntryBlockArgs {
/// \param [in] region - Empty region in which to create the entry block.
mlir::Block *genEntryBlock(
mlir::OpBuilder &builder, const EntryBlockArgs &args, mlir::Region ®ion);
-
-// Returns true if the variable has a dynamic size and therefore requires
-// bounds operations to describe its extents.
-bool needsBoundsOps(mlir::Value var);
-
-// Generate MapBoundsOp operations for the variable if required.
-void genBoundsOps(fir::FirOpBuilder &builder, mlir::Value var,
- llvm::SmallVectorImpl<mlir::Value> &boundsOps);
} // namespace Fortran::common::openmp
#endif // FORTRAN_SUPPORT_OPENMP_UTILS_H_
diff --git a/flang/lib/Optimizer/OpenMP/AutomapToTargetData.cpp b/flang/lib/Optimizer/OpenMP/AutomapToTargetData.cpp
deleted file mode 100644
index 8eeff66921db0..0000000000000
--- a/flang/lib/Optimizer/OpenMP/AutomapToTargetData.cpp
+++ /dev/null
@@ -1,130 +0,0 @@
-//===- AutomapToTargetData.cpp -------------------------------------------===//
-//
-// 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/FIRBuilder.h"
-#include "flang/Optimizer/Builder/HLFIRTools.h"
-#include "flang/Optimizer/Dialect/FIROps.h"
-#include "flang/Optimizer/Dialect/FIRType.h"
-#include "flang/Optimizer/Dialect/Support/KindMapping.h"
-#include "flang/Optimizer/HLFIR/HLFIROps.h"
-#include "flang/Support/OpenMP-utils.h"
-
-#include "mlir/Dialect/OpenMP/OpenMPDialect.h"
-#include "mlir/Dialect/OpenMP/OpenMPInterfaces.h"
-#include "mlir/IR/BuiltinAttributes.h"
-#include "mlir/IR/Operation.h"
-#include "mlir/Pass/Pass.h"
-
-#include "llvm/Frontend/OpenMP/OMPConstants.h"
-
-namespace flangomp {
-#define GEN_PASS_DEF_AUTOMAPTOTARGETDATAPASS
-#include "flang/Optimizer/OpenMP/Passes.h.inc"
-} // namespace flangomp
-
-using namespace mlir;
-using namespace Fortran::common::openmp;
-
-namespace {
-class AutomapToTargetDataPass
- : public flangomp::impl::AutomapToTargetDataPassBase<
- AutomapToTargetDataPass> {
- void findRelatedAllocmemFreemem(fir::AddrOfOp addressOfOp,
- llvm::DenseSet<fir::StoreOp> &allocmems,
- llvm::DenseSet<fir::LoadOp> &freemems) {
- assert(addressOfOp->hasOneUse() && "op must have single use");
-
- auto declaredRef =
- cast<hlfir::DeclareOp>(*addressOfOp->getUsers().begin())->getResult(0);
-
- for (Operation *refUser : declaredRef.getUsers()) {
- if (auto storeOp = dyn_cast<fir::StoreOp>(refUser))
- if (auto emboxOp = storeOp.getValue().getDefiningOp<fir::EmboxOp>())
- if (auto allocmemOp =
- emboxOp.getOperand(0).getDefiningOp<fir::AllocMemOp>())
- allocmems.insert(storeOp);
-
- if (auto loadOp = dyn_cast<fir::LoadOp>(refUser))
- for (Operation *loadUser : loadOp.getResult().getUsers())
- if (auto boxAddrOp = dyn_cast<fir::BoxAddrOp>(loadUser))
- for (Operation *boxAddrUser : boxAddrOp.getResult().getUsers())
- if (auto freememOp = dyn_cast<fir::FreeMemOp>(boxAddrUser))
- freemems.insert(loadOp);
- }
- }
-
- void runOnOperation() override {
- ModuleOp module = getOperation()->getParentOfType<ModuleOp>();
- if (!module)
- module = dyn_cast<ModuleOp>(getOperation());
- if (!module)
- return;
-
- // Build FIR builder for helper utilities.
- fir::KindMapping kindMap = fir::getKindMapping(module);
- fir::FirOpBuilder builder{module, std::move(kindMap)};
-
- // Collect global variables with AUTOMAP flag.
- llvm::DenseSet<fir::GlobalOp> automapGlobals;
- module.walk([&](fir::GlobalOp globalOp) {
- if (auto iface =
- dyn_cast<omp::DeclareTargetInterface>(globalOp.getOperation()))
- if (iface.isDeclareTarget() && iface.getDeclareTargetAutomap() &&
- iface.getDeclareTargetDeviceType() !=
- omp::DeclareTargetDeviceType::host)
- automapGlobals.insert(globalOp);
- });
-
- auto addMapInfo = [&](auto globalOp, auto memOp) {
- builder.setInsertionPointAfter(memOp);
- SmallVector<Value> bounds;
- if (needsBoundsOps(memOp.getMemref()))
- genBoundsOps(builder, memOp.getMemref(), bounds);
-
- omp::TargetEnterExitUpdateDataOperands clauses;
- mlir::omp::MapInfoOp mapInfo = mlir::omp::MapInfoOp::create(
- builder, memOp.getLoc(), memOp.getMemref().getType(),
- memOp.getMemref(),
- TypeAttr::get(fir::unwrapRefType(memOp.getMemref().getType())),
- builder.getIntegerAttr(
- builder.getIntegerType(64, false),
- static_cast<unsigned>(
- isa<fir::StoreOp>(memOp)
- ? llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_TO
- : llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_DELETE)),
- builder.getAttr<omp::VariableCaptureKindAttr>(
- omp::VariableCaptureKind::ByCopy),
- /*var_ptr_ptr=*/mlir::Value{},
- /*members=*/SmallVector<Value>{},
- /*members_index=*/ArrayAttr{}, bounds,
- /*mapperId=*/mlir::FlatSymbolRefAttr(), globalOp.getSymNameAttr(),
- builder.getBoolAttr(false));
- clauses.mapVars.push_back(mapInfo);
- isa<fir::StoreOp>(memOp)
- ? builder.create<omp::TargetEnterDataOp>(memOp.getLoc(), clauses)
- : builder.create<omp::TargetExitDataOp>(memOp.getLoc(), clauses);
- };
-
- for (fir::GlobalOp globalOp : automapGlobals) {
- if (auto uses = globalOp.getSymbolUses(module.getOperation())) {
- llvm::DenseSet<fir::StoreOp> allocmemStores;
- llvm::DenseSet<fir::LoadOp> freememLoads;
- for (auto &x : *uses)
- if (auto addrOp = dyn_cast<fir::AddrOfOp>(x.getUser()))
- findRelatedAllocmemFreemem(addrOp, allocmemStores, freememLoads);
-
- for (auto storeOp : allocmemStores)
- addMapInfo(globalOp, storeOp);
-
- for (auto loadOp : freememLoads)
- addMapInfo(globalOp, loadOp);
- }
- }
- }
-};
-} // namespace
diff --git a/flang/lib/Optimizer/OpenMP/CMakeLists.txt b/flang/lib/Optimizer/OpenMP/CMakeLists.txt
index afe90985e54fd..e31543328a9f9 100644
--- a/flang/lib/Optimizer/OpenMP/CMakeLists.txt
+++ b/flang/lib/Optimizer/OpenMP/CMakeLists.txt
@@ -1,7 +1,6 @@
get_property(dialect_libs GLOBAL PROPERTY MLIR_DIALECT_LIBS)
add_flang_library(FlangOpenMPTransforms
- AutomapToTargetData.cpp
DoConcurrentConversion.cpp
FunctionFiltering.cpp
GenericLoopConversion.cpp
diff --git a/flang/lib/Optimizer/OpenMP/MapsForPrivatizedSymbols.cpp b/flang/lib/Optimizer/OpenMP/MapsForPrivatizedSymbols.cpp
index 184f991fd91ed..970f7d7ab063f 100644
--- a/flang/lib/Optimizer/OpenMP/MapsForPrivatizedSymbols.cpp
+++ b/flang/lib/Optimizer/OpenMP/MapsForPrivatizedSymbols.cpp
@@ -29,7 +29,6 @@
#include "flang/Optimizer/Dialect/Support/KindMapping.h"
#include "flang/Optimizer/HLFIR/HLFIROps.h"
#include "flang/Optimizer/OpenMP/Passes.h"
-#include "flang/Support/OpenMP-utils.h"
#include "mlir/Dialect/Func/IR/FuncOps.h"
#include "mlir/Dialect/OpenMP/OpenMPDialect.h"
@@ -48,7 +47,6 @@ namespace flangomp {
} // namespace flangomp
using namespace mlir;
-using namespace Fortran::common::openmp;
namespace {
class MapsForPrivatizedSymbolsPass
@@ -195,5 +193,38 @@ class MapsForPrivatizedSymbolsPass
}
}
}
+ // As the name suggests, this function examines var to determine if
+ // it has dynamic size. If true, this pass'll have to extract these
+ // bounds from descriptor of var and add the bounds to the resultant
+ // MapInfoOp.
+ bool needsBoundsOps(mlir::Value var) {
+ assert(mlir::isa<omp::PointerLikeType>(var.getType()) &&
+ "needsBoundsOps can deal only with pointer types");
+ mlir::Type t = fir::unwrapRefType(var.getType());
+ // t could be a box, so look inside the box
+ auto innerType = fir::dyn_cast_ptrOrBoxEleTy(t);
+ if (innerType)
+ return fir::hasDynamicSize(innerType);
+ return fir::hasDynamicSize(t);
+ }
+
+ void genBoundsOps(fir::FirOpBuilder &builder, mlir::Value var,
+ llvm::SmallVector<mlir::Value> &boundsOps) {
+ mlir::Location loc = var.getLoc();
+ fir::factory::AddrAndBoundsInfo info =
+ fir::factory::getDataOperandBaseAddr(builder, var,
+ /*isOptional=*/false, loc);
+ fir::ExtendedValue extendedValue =
+ hlfir::translateToExtendedValue(loc, builder, hlfir::Entity{info.addr},
+ /*continguousHint=*/true)
+ .first;
+ llvm::SmallVector<mlir::Value> boundsOpsVec =
+ fir::factory::genImplicitBoundsOps<mlir::omp::MapBoundsOp,
+ mlir::omp::MapBoundsType>(
+ builder, info, extendedValue,
+ /*dataExvIsAssumedSize=*/false, loc);
+ for (auto bounds : boundsOpsVec)
+ boundsOps.push_back(bounds);
+ }
};
} // namespace
diff --git a/flang/lib/Optimizer/Passes/Pipelines.cpp b/flang/lib/Optimizer/Passes/Pipelines.cpp
index 9f02d2df43e68..ca8e820608688 100644
--- a/flang/lib/Optimizer/Passes/Pipelines.cpp
+++ b/flang/lib/Optimizer/Passes/Pipelines.cpp
@@ -316,13 +316,13 @@ void createOpenMPFIRPassPipeline(mlir::PassManager &pm,
pm.addPass(flangomp::createDoConcurrentConversionPass(
opts.doConcurrentMappingKind == DoConcurrentMappingKind::DCMK_Device));
- // The MapsForPrivatizedSymbols and AutomapToTargetDataPass pass need to run
- // before MapInfoFinalizationPass because they create new MapInfoOp
- // instances, typically for descriptors. MapInfoFinalizationPass adds
- // MapInfoOp instances for the descriptors underlying data which is necessary
- // to access the data on the offload target device.
+ // The MapsForPrivatizedSymbols pass needs to run before
+ // MapInfoFinalizationPass because the former creates new
+ // MapInfoOp instances, typically for descriptors.
+ // MapInfoFinalizationPass adds MapInfoOp instances for the descriptors
+ // underlying data which is necessary to access the data on the offload
+ // target device.
pm.addPass(flangomp::createMapsForPrivatizedSymbolsPass());
- pm.addPass(flangomp::createAutomapToTargetDataPass());
pm.addPass(flangomp::createMapInfoFinalizationPass());
pm.addPass(flangomp::createMarkDeclareTargetPass());
pm.addPass(flangomp::createGenericLoopConversionPass());
diff --git a/flang/lib/Support/OpenMP-utils.cpp b/flang/lib/Support/OpenMP-utils.cpp
index c694639bef276..97e7723f0be8c 100644
--- a/flang/lib/Support/OpenMP-utils.cpp
+++ b/flang/lib/Support/OpenMP-utils.cpp
@@ -7,10 +7,7 @@
//===----------------------------------------------------------------------===//
#include "flang/Support/OpenMP-utils.h"
-#include "flang/Optimizer/Builder/DirectivesCommon.h"
-#include "flang/Optimizer/Builder/HLFIRTools.h"
-#include "mlir/Dialect/OpenMP/OpenMPDialect.h"
#include "mlir/IR/OpDefinition.h"
namespace Fortran::common::openmp {
@@ -50,30 +47,4 @@ mlir::Block *genEntryBlock(mlir::OpBuilder &builder, const EntryBlockArgs &args,
return builder.createBlock(®ion, {}, types, locs);
}
-
-bool needsBoundsOps(mlir::Value var) {
- assert(mlir::isa<mlir::omp::PointerLikeType>(var.getType()) &&
- "only pointer like types expected");
- mlir::Type t = fir::unwrapRefType(var.getType());
- if (mlir::Type inner = fir::dyn_cast_ptrOrBoxEleTy(t))
- return fir::hasDynamicSize(inner);
- return fir::hasDynamicSize(t);
-}
-
-void genBoundsOps(fir::FirOpBuilder &builder, mlir::Value var,
- llvm::SmallVectorImpl<mlir::Value> &boundsOps) {
- mlir::Location loc = var.getLoc();
- fir::factory::AddrAndBoundsInfo info =
- fir::factory::getDataOperandBaseAddr(builder, var,
- /*isOptional=*/false, loc);
- fir::ExtendedValue exv =
- hlfir::translateToExtendedValue(loc, builder, hlfir::Entity{info.addr},
- /*contiguousHint=*/true)
- .first;
- llvm::SmallVector<mlir::Value> tmp =
- fir::factory::genImplicitBoundsOps<mlir::omp::MapBoundsOp,
- mlir::omp::MapBoundsType>(
- builder, info, exv, /*dataExvIsAssumedSize=*/false, loc);
- llvm::append_range(boundsOps, tmp);
-}
} // namespace Fortran::common::openmp
diff --git a/flang/test/Transforms/omp-automap-to-target-data.fir b/flang/test/Transforms/omp-automap-to-target-data.fir
deleted file mode 100644
index 7a19705a248b4..0000000000000
--- a/flang/test/Transforms/omp-automap-to-target-data.fir
+++ /dev/null
@@ -1,58 +0,0 @@
-// RUN: fir-opt --omp-automap-to-target-data %s | FileCheck %s
-// Test OMP AutomapToTargetData pass.
-
-module {
- fir.global
- @_QMtestEarr{omp.declare_target = #omp.declaretarget<device_type = (any),
- capture_clause = (enter), automap = true>} target
- : !fir.box<!fir.heap<!fir.array<?xi32>>>
-
- func.func @automap() {
- %c0 = arith.constant 0 : index
- %c10 = arith.constant 10 : i32
- %addr = fir.address_of(@_QMtestEarr) : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
- %decl:2 = hlfir.declare %addr {fortran_attrs = #fir.var_attrs<allocatable, target>, uniq_name = "_QMtestEarr"} : (!fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>) -> (!fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>, !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>)
- %idx = fir.convert %c10 : (i32) -> index
- %cond = arith.cmpi sgt, %idx, %c0 : index
- %n = arith.select %cond, %idx, %c0 : index
- %mem = fir.allocmem !fir.array<?xi32>, %n {fir.must_be_heap = true}
- %shape = fir.shape %n : (index) -> !fir.shape<1>
- %box = fir.embox %mem(%shape) : (!fir.heap<!fir.array<?xi32>>, !fir.shape<1>) -> !fir.box<!fir.heap<!fir.array<?xi32>>>
- fir.store %box to %decl#0 : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
- %ld = fir.load %decl#0 : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
- %base = fir.box_addr %ld : (!fir.box<!fir.heap<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
- fir.freemem %base : !fir.heap<!fir.array<?xi32>>
- %undef = fir.zero_bits !fir.heap<!fir.array<?xi32>>
- %sh0 = fir.shape %c0 : (index) -> !fir.shape<1>
- %empty = fir.embox %undef(%sh0) : (!fir.heap<!fir.array<?xi32>>, !fir.shape<1>) -> !fir.box<!fir.heap<!fir.array<?xi32>>>
- fir.store %empty to %decl#0 : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
- return
- }
-}
-
-// CHECK: fir.global @[[AUTOMAP:.*]] {{{.*}} automap = true
-// CHECK-LABEL: func.func @automap()
-// CHECK: %[[AUTOMAP_ADDR:.*]] = fir.address_of(@[[AUTOMAP]])
-// CHECK: %[[AUTOMAP_DECL:.*]]:2 = hlfir.declare %[[AUTOMAP_ADDR]]
-// CHECK: %[[ALLOC_MEM:.*]] = fir.allocmem
-// CHECK-NEXT: fir.shape
-// CHECK-NEXT: %[[ARR_BOXED:.*]] = fir.embox %[[ALLOC_MEM]]
-// CHECK-NEXT: fir.store %[[ARR_BOXED]]
-// CHECK-NEXT: %[[ARR_BOXED_LOADED:.*]] = fir.load %[[AUTOMAP_DECL]]#0
-// CHECK-NEXT: %[[ARR_HEAP_PTR:.*]] = fir.box_addr %[[ARR_BOXED_LOADED]]
-// CHECK-NEXT: %[[DIM0:.*]] = arith.constant 0 : index
-// CHECK-NEXT: %[[BOX_DIMS:.*]]:3 = fir.box_dims %[[ARR_BOXED_LOADED]], %[[DIM0]]
-// CHECK-NEXT: %[[ONE:.*]] = arith.constant 1 : index
-// CHECK-NEXT: %[[ZERO:.*]] = arith.constant 0 : index
-// CHECK-NEXT: %[[BOX_DIMS2:.*]]:3 = fir.box_dims %[[ARR_BOXED_LOADED]], %[[ZERO]]
-// CHECK-NEXT: %[[LOWER_BOUND:.*]] = arith.constant 0 : index
-// CHECK-NEXT: %[[UPPER_BOUND:.*]] = arith.subi %[[BOX_DIMS2]]#1, %[[ONE]] : index
-// CHECK-NEXT: omp.map.bounds lower_bound(%[[LOWER_BOUND]] : index) upper_bound(%[[UPPER_BOUND]] : index) extent(%[[BOX_DIMS2]]#1 : index) stride(%[[BOX_DIMS2]]#2 : index) start_idx(%[[BOX_DIMS]]#0 : index) {stride_in_bytes = true}
-// CHECK-NEXT: arith.muli %[[BOX_DIMS2]]#2, %[[BOX_DIMS2]]#1 : index
-// CHECK-NEXT: %[[MAP_INFO:.*]] = omp.map.info var_ptr(%[[AUTOMAP_DECL]]#0 {{.*}} map_clauses(to) capture(ByCopy)
-// CHECK-NEXT: omp.target_enter_data map_entries(%[[MAP_INFO]]
-// CHECK: %[[LOAD:.*]] = fir.load %[[AUTOMAP_DECL]]#0
-// CHECK: %[[EXIT_MAP:.*]] = omp.map.info var_ptr(%[[AUTOMAP_DECL]]#0 {{.*}} map_clauses(delete) capture(ByCopy)
-// CHECK-NEXT: omp.target_exit_data map_entries(%[[EXIT_MAP]]
-// CHECK-NEXT: %[[BOXADDR:.*]] = fir.box_addr %[[LOAD]]
-// CHECK-NEXT: fir.freemem %[[BOXADDR]]
diff --git a/offload/test/offloading/fortran/declare-target-automap.f90 b/offload/test/offloading/fortran/declare-target-automap.f90
deleted file mode 100644
index 50e8c124c25fc..0000000000000
--- a/offload/test/offloading/fortran/declare-target-automap.f90
+++ /dev/null
@@ -1,36 +0,0 @@
-!Offloading test for AUTOMAP modifier in declare target enter
-! REQUIRES: flang, amdgpu
-
-program automap_program
- use iso_c_binding, only: c_loc
- use omp_lib, only: omp_get_default_device, omp_target_is_present
- integer, parameter :: N = 10
- integer :: i
- integer, allocatable, target :: automap_array(:)
- !$omp declare target enter(automap:automap_array)
-
- ! false since the storage is not present even though the descriptor is present
- write (*, *) omp_target_is_present(c_loc(automap_array), omp_get_default_device())
- ! CHECK: 0
-
- allocate (automap_array(N))
- ! true since the storage should be allocated and reference count incremented by the allocate
- write (*, *) omp_target_is_present(c_loc(automap_array), omp_get_default_device())
- ! CHECK: 1
-
- ! since storage is present this should not be a runtime error
- !$omp target teams loop
- do i = 1, N
- automap_array(i) = i
- end do
-
- !$omp target update from(automap_array)
- write (*, *) automap_array
- ! CHECK: 1 2 3 4 5 6 7 8 9 10
-
- deallocate (automap_array)
-
- ! automap_array should have it's storage unmapped on device here
- write (*, *) omp_target_is_present(c_loc(automap_array), omp_get_default_device())
- ! CHECK: 0
-end program
More information about the flang-commits
mailing list