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

    <tr>
        <th>Summary</th>
        <td>
            [flang][HLFIR] unimplemented symbol lowering
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang:fir-hlfir
      </td>
    </tr>

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

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

<pre>
    Some programs from the Fujitsu test suite hit `not yet implemented: lowering symbol to HLFIR`:
- https://github.com/fujitsu/compiler-test-suite/blob/main/Fortran/0115/0115_0009.F90
- https://github.com/fujitsu/compiler-test-suite/blob/main/Fortran/0115/0115_0010.F90
- https://github.com/fujitsu/compiler-test-suite/blob/main/Fortran/0115/0115_0011.F90

Here is a minimal reproducer:
```
subroutine sub1(dest1, dest2, src1, src2)
  real, dimension(1:2)::dest1, dest2, src1, src2
 integer::i

  do i=1,2
     block
       dest1(i) = src1(i) * src2(i) + src1(i) * src2(i)
     end block
  end do
end subroutine sub1

subroutine sub2(dest1_res, dest2_res, src1_res, src2_res)
 real(kind=8),dimension(1:2)::dest1_res, dest2_res, src1_res, src2_res
end subroutine sub2
```

@jeanPerier is this expected? I was surprised to see a HLFIR TODO
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy8VEFvnDwQ_TXmMtqVbWCBAwcShBLpk_Kp7T0yMIATg5FtkubfVwY22VRt0lNWK3ue7Zk3flhPWCv7CTEn8RWJy0AsbtAmd7USQ1Dr9iX_rkeE2ejeiNFCZ_QIbkColgfp7AIOrQO7SIcwSAfkRCft4AUdyHFWOOLksCVhAUo_o5FTD_ZlrLUCp-Hmv-r2GzlREhaEloQWBxicm63HvCK86qUblvrY6JHwqtsYCa8aPc5SoTl48sNKTnhVK10TXo1CToRXlTbOCB9RxuJ9uqeUZscqo19Gx-jX0rE3um28QYMgLQgY5SRHocDgbHS7NGhedfffYPuv0C610YuTE4JdakZ42qJ1jPBr8AH3gTUN22dOeLYlAhgUaj0nR5ys1BPhKSNhsZ4JCxIWn5Ta6sjJYb81GBby8j4ArQZJwtKnnI_7X61083iBAXamVBKeAQnLnWjHvNh7P-Orj_YvCuPUvifzC63ekI9_l--i-_db_KzsvUH7KskZ-G4u4n393MkmdPoop5aEZeo3-PUnqv87zV_uwv_4XPYxog8opv_RSDT-xblBWsCfMzarA1RwC8_Cgl3MbKTF1juARQSx-QD8uCvvgjYP2yzMRIA5S3hG0ySOkmDIqYho06QiwSSpTyzhbdTF7NSlbdJg1oaBzDnlEaPsxCIaR8kxEnXGsxqZSLA7tRGJKI5CqqNST-NRmz6Q1i6YM8bjKAuUqFHZ1QY575SYehIWnTSHQXXSEM69O5rcJx_qpbckokpaZ9_KOenU6qNbdlyS-GpzuLiEZbqww7MFni0xWIzKP_AGT7FPh9noB2wc4dXaviW82m_wlPNfAQAA__-6m8Jb">