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);

mlir::Value genIsContiguousUpTo(fir::FirOpBuilder &builder, mlir::Location loc,
                                mlir::Value array, mlir::Value dim);
 
} // namespace fir::runtime
#endif // FORTRAN_OPTIMIZER_BUILDER_RUNTIME_INQUIRY_H