Inquiry.h

//===-- Inquiry.h - generate inquiry 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_INQUIRY_H
#define FORTRAN_OPTIMIZER_BUILDER_RUNTIME_INQUIRY_H
 
namespace mlir {
class Value;
class Location;
} // namespace mlir
 
namespace fir {
class FirOpBuilder;
}
 
namespace fir::runtime {
 
mlir::Value genLboundDim(fir::FirOpBuilder &builder, mlir::Location loc,
                         mlir::Value array, mlir::Value dim);
 
void genLbound(fir::FirOpBuilder &builder, mlir::Location loc,
               mlir::Value resultAddr, mlir::Value arrayt, mlir::Value kind);
 
void genUbound(fir::FirOpBuilder &builder, mlir::Location loc,
               mlir::Value resultBox, mlir::Value array, mlir::Value kind);
 
void genShape(fir::FirOpBuilder &builder, mlir::Location loc,
              mlir::Value resultAddr, mlir::Value arrayt, mlir::Value kind);
 
mlir::Value genSize(fir::FirOpBuilder &builder, mlir::Location loc,
                    mlir::Value array);
 
mlir::Value genSizeDim(fir::FirOpBuilder &builder, mlir::Location loc,
                       mlir::Value array, mlir::Value dim);
 
mlir::Value genIsContiguous(fir::FirOpBuilder &builder, mlir::Location loc,
                            mlir::Value array);
 
} // namespace fir::runtime
#endif // FORTRAN_OPTIMIZER_BUILDER_RUNTIME_INQUIRY_H