diff --git a/flang/lib/Lower/Bridge.cpp b/flang/lib/Lower/Bridge.cpp index 3ac788e0e6945..facd6640a2fee 100644 --- a/flang/lib/Lower/Bridge.cpp +++ b/flang/lib/Lower/Bridge.cpp @@ -2839,10 +2839,10 @@ class FirConverter : public Fortran::lower::AbstractConverter { if (!funit.isMainProgram()) { const Fortran::semantics::Symbol &procSymbol = funit.getSubprogramSymbol(); - if (procSymbol.owner().IsSubmodule()) { + if (procSymbol.owner().IsSubmodule()) TODO(toLocation(), "support for submodules"); - return; - } + if (Fortran::semantics::IsSeparateModuleProcedureInterface(&procSymbol)) + TODO(toLocation(), "separate module procedure"); } setCurrentPosition(funit.getStartingSourceLoc()); for (int entryIndex = 0, last = funit.entryPointList.size();