<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/114532>114532</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [flang] Multiple fir.declare in wrong function.
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          abidh
      </td>
    </tr>
</table>

<pre>
    Please see the code below.  I compiled it with `flang -fc1 -emit-mlir -O0`. In the resultant mlir, I see that fir.declare is generated 3 times for variable `i` of `str_int` (`_QMutilsFstr_intEi`) and 2 of those fir.declare are in `str_real_n` which does not seem right to me.

```
module utils

integer, parameter :: dp=kind(0.d0)

contains

pure integer function str_int_len(i) result(sz)
! Returns the length of the string representation of 'i'
integer, intent(in) :: i
integer, parameter :: MAX_STR = 100
character(MAX_STR) :: s
write(s, '(i0)') i
sz = len_trim(s)
end function

pure function str_int(i) result(s)
! Converts integer "i" to string
integer, intent(in) :: i
character(len=str_int_len(i)) :: s
write(s, '(i0)') i
end function

pure integer function str_real_len(r, fmt) result(sz)
! Returns the length of the string representation of 'i'
real(dp), intent(in) :: r
character(len=*), intent(in) :: fmt
integer, parameter :: MAX_STR = 100
character(MAX_STR) :: s
! If 's' is too short (MAX_STR too small), Fortan will abort with:
! "Fortran runtime error: End of record"
write(s, fmt) r
sz = len_trim(s)
end function


pure function str_real_n(r, n) result(s)
! Converts the real number "r" to string with 'n' decimal digits.
real(dp), intent(in) :: r
integer, intent(in) :: n
character(len=str_real_len(r, "(f0." // str_int(n) // ")")) :: s
write(s, "(f0." // str_int(n) // ")") r
end function

end module

```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy0Vk2PpDYT_jXuS6mRMTQNBw7zbm9Lcxi9ySaH3FoGCnBi7JZtppX99VEZ5qN3vpKRVhoxtKl66qmnqmxL79VgEGu2-x_bHTZyDqN1tWxUN24a2_1d_6JRegSPCGFEaG2H0KC2lwTgFlo7nZXGDlSAiwojsIL3WpoBtn2bwhYnFbaTVg62_-es4Ancmojj0M86SBOAvjLxBW7XGDJAr1zSYaulQ1AeBjToZMAOMghqQg-9dXAvnZKNRgqpWMHB9vTqgzspE2iBiZIV_PTr3RyU9sf1y1cyZqICaToQ5BVG6_EqaAxsHuAcSn0yhHgZVTtCZ9GDsYEIT-DUMAYIFiZMGD8wfrM-C77-xZ-T7WaNEKk8N1Mm4IBRgbN0csKADlh2w7Ib6M4sO_ylTMdEyZOOWD93ba0JUpkruPMcqUdM6GfTBmUNrKmfNBomSkXZLwVgovTfn2BFCt8wzM74WCSNZgjjIhESiDIDODw79GiCjNCkutgrJvYv8qFXQyGUoYhrUurjvO9u_jj99vs3YNkBUr4K2I7SyTaQS7kaPENdRbg4FZCSIlziJEoVZaPX6iG2_x6hNZpTcGpa7FcN0HSPur0Q9kdBX4p5peUXa-7RBf9YECaEYkJQtyxq_jfNnktApcwOLwv7WU3ezfvVhopjsQSO1Psp_MzGonBMlN05Un9LKfeWUkzcvOtI7H9iY5ICtzEjz8SedrVgLfjRugBPfsviJLVeuR6tC9LARWkNsiFj2mUJ-hGVCUFWThpws6H9EdA56yj4V9ORjg5b6zomxCsN8VC1z0_GW_Oxbptrd5h_MyfLySA1mHlqlnlxV_OyHjJib0jFDls1SQ2dGlTwySf65MPJM-9N3o8TQAqLsucJcWbiyMTx2U6xwC6r0bJ6eH4wsZ8BfUjwraLR-nIkvXpmbbo666qskhus033G8yKtinwz1n2aS16JouKVkDyv5K7M-mrPy6av-rTAjaoFF3ma8jRNdyLPE0ybpuJFkwue8SIVLOc4SaUTre-nxLpho7yfsU7TfJeJjZYNah_vI0LEqwQltDtsXE0O22YePMu5Vj74J4iggo6XmMVjd4C7WQd11tfnujJwcdYMj5Ikm9npegzh7KkEUcdBhXFuktZOTBwpwvpve3b2T2wDE8fI2DNxXEnf1-KfAAAA__84msiL">