[Bug fortran/85526] [6.4 regression] calling a (pure) function from inside another pure function may cause segmentation fault during compilation

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85526

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org ---
Reduce test case.

module fox_m_fsys_format

   implicit none

   integer, parameter :: dp=8

   interface leng
      module procedure str_real_dp_fmt_len
   end interface

   contains

      pure function str_real_dp_fmt_len(x, fmt) result(n)
         real(dp), intent(in) :: x
         character(len=10), intent(in) :: fmt
         integer :: n
         if (.not.checkFmt(fmt)) then
            n = 0
            return
         end if
      end function str_real_dp_fmt_len

      function str_real_dp_fmt(x, fmt) result(s)
         real(dp), intent(in) :: x
         character(len=10), intent(in) :: fmt
         character(len=leng(x, fmt)) :: s
      end function str_real_dp_fmt

      function checkFmt(fmt) result(good)
         character(len=10), intent(in) :: fmt
         logical good
         good = .true.
      end function checkFmt

end module fox_m_fsys_format