}
template <>
-constexpr TypeBuilderFunc getModel<float _Complex>() {
- return [](mlir::MLIRContext *context) -> mlir::Type {
- return fir::CplxType::get(context, sizeof(float));
- };
-}
-template <>
-constexpr TypeBuilderFunc getModel<double _Complex>() {
- return [](mlir::MLIRContext *context) -> mlir::Type {
- return fir::CplxType::get(context, sizeof(double));
- };
-}
-
-template <>
constexpr TypeBuilderFunc getModel<const Fortran::runtime::Descriptor &>() {
return [](mlir::MLIRContext *context) -> mlir::Type {
return fir::BoxType::get(mlir::NoneType::get(context));