diff options
author | Muhammad Omair Javaid <omair.javaid@linaro.org> | 2023-11-23 12:29:35 +0500 |
---|---|---|
committer | Muhammad Omair Javaid <omair.javaid@linaro.org> | 2023-11-23 12:30:40 +0500 |
commit | 49f55d107548a340992eaec1b9767c0f8fc443cd (patch) | |
tree | 325f09856dd4d8d9e6f1d182e8e15b3fba3e2a9e /flang/lib/Lower/ConvertType.cpp | |
parent | 7414c0db962f8a5029fd44c3e0bc93d9ce20be71 (diff) | |
download | llvm-49f55d107548a340992eaec1b9767c0f8fc443cd.zip llvm-49f55d107548a340992eaec1b9767c0f8fc443cd.tar.gz llvm-49f55d107548a340992eaec1b9767c0f8fc443cd.tar.bz2 |
Revert "[Flang] Add partial support for lowering procedure pointer assignment. (#70461)"
This reverts commit e07fec10ac208c2868a24c5c0be88e45778b297e.
This change appears to have broken following buildbots:
https://lab.llvm.org/buildbot/#/builders/176
https://lab.llvm.org/buildbot/#/builders/179
https://lab.llvm.org/buildbot/#/builders/184
https://lab.llvm.org/buildbot/#/builders/197
https://lab.llvm.org/buildbot/#/builders/198
All bots fails in testsuite where following tests seems broken:
(eg: https://lab.llvm.org/buildbot/#/builders/176/builds/7131)
test-suite::gfortran-regression-compile-regression__proc_ptr_46_f90.test
test-suite::gfortran-regression-compile-regression__proc_ptr_37_f90.test
Diffstat (limited to 'flang/lib/Lower/ConvertType.cpp')
-rw-r--r-- | flang/lib/Lower/ConvertType.cpp | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/flang/lib/Lower/ConvertType.cpp b/flang/lib/Lower/ConvertType.cpp index 72f1ee7..1ed3b60 100644 --- a/flang/lib/Lower/ConvertType.cpp +++ b/flang/lib/Lower/ConvertType.cpp @@ -248,13 +248,8 @@ struct TypeBuilderImpl { // links, the fir type is built based on the ultimate symbol. This relies // on the fact volatile and asynchronous are not reflected in fir types. const Fortran::semantics::Symbol &ultimate = symbol.GetUltimate(); - - if (Fortran::semantics::IsProcedurePointer(ultimate)) { - Fortran::evaluate::ProcedureDesignator proc(ultimate); - auto procTy{Fortran::lower::translateSignature(proc, converter)}; - return fir::BoxProcType::get(context, procTy); - } - + if (Fortran::semantics::IsProcedurePointer(ultimate)) + TODO(loc, "procedure pointers"); if (const Fortran::semantics::DeclTypeSpec *type = ultimate.GetType()) { if (const Fortran::semantics::IntrinsicTypeSpec *tySpec = type->AsIntrinsic()) { |