[flang-commits] [flang] [flang][debug] Supply missing subprogram attributes (PR #181425)

[via flang-commits]

================
@@ -1582,6 +1582,12 @@ Fortran::lower::CallInterface<T>::getProcedureAttrs(
            !sym->attrs().test(Fortran::semantics::Attr::RECURSIVE))) {
         flags = flags | fir::FortranProcedureFlagsEnum::non_recursive;
       }
+      // Set RECURSIVE if the attribute is explicitly present.  This is only
+      // used for debug info generation to maintain consistency with pre-F2018
+      // compilers.
+      if (sym->attrs().test(Fortran::semantics::Attr::RECURSIVE)) {
+        flags = flags | fir::FortranProcedureFlagsEnum::recursive;
+      }
----------------
timsmith78 wrote:

Fixed as requested.

https://github.com/llvm/llvm-project/pull/181425