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

    <tr>
        <th>Summary</th>
        <td>
            [flang][debug] Incorrect module variable scope when applying "use, only"
        </td>
    </tr>

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

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

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

<pre>
    Code example,
```
module mod1
  integer :: a = 1
  integer :: b = 2
end module

subroutine sub1()
  use mod1, only : a
end subroutine
```

When using debugger to inspect variable from inside sub1, only `a` should be visible, but currently flang is giving the whole module imported to sub1.
```
!2 = !DIModule(scope: !4, name: "mod1", file: !3, line: 1)
!11 = distinct !DISubprogram(name: "sub1", linkageName: "sub1_", scope: !3, file: !3, line: 6, type: !12, scopeLine: 6, spFlags: DISPFlagDefinition | DISPFlagOptimized, unit: !4, retainedNodes: !14)
!15 = !DIImportedEntity(tag: DW_TAG_imported_module, scope: !11, entity: !2, file: !3, line: 1)
```

The solution should be straight forward, 
(1) change the `tag:` field of `DIImportedEntity` from `DW_TAG_imported_module` to `DW_TAG_imported_declaration`;
(2) change the `entity:` field of `DIImportedEntity` from referencing the module to refencing the variable;
```
!1 = distinct !DIGlobalVariable(name: "a", linkageName: "_QMmod1Ea", scope: !2, file: !3, line: 2, type: !8, isLocal: false, isDefinition: true)
!2 = !DIModule(scope: !4, name: "mod1", file: !3, line: 1)
!11 = distinct !DISubprogram(name: "sub1", linkageName: "sub1_", scope: !3, file: !3, line: 6, type: !12, scopeLine: 6, spFlags: DISPFlagDefinition | DISPFlagOptimized, unit: !4, retainedNodes: !14)
!15 = !DIImportedEntity(tag: DW_TAG_imported_declaration, scope: !11, entity: !1, file: !3, line: 1)
```

</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJzsVk2P2zYQ_TXUhchCHEm296CDdh0HCyRpiwTN0aDEkcSUIgV-eOv--oKS_LEbN01vPQTYhcEZzsybxzekuHOy04glKR5IsU148L2x5VeJKv4ntRHH8tEIpPgnH0aFBB5JWpFVuvyl1WBEUEgHIxhJK0ql9tihpSSrSFZRTkm2pTdd9eQCklaoBZ3zxORp5UJtTfBSI3WhZgQ2BO6nFMEtpeCRGq2OdKqxpLiEvcJI0upLj5oGJ3VHBdahizi8oVK7ERtPD9xKXiukrTVDtEpxqn0qtEo5WaXU9SYoQWukB-lkPVFC6-BpE6xF7dWRtorrjkpHO3mIBX2P9Lk3M0uRLDmMxnoUEUEscvcaLzCYyCHAtk8fZmZg4xozYmyYAMtjWc2HZQ0zKRCtrVSnXVlcq0hIVlE2k0iAMTZlF9J5qRs_l_kU6tGazvKBwOYq88wCLJn-4B1-fOncL95reNn3gKziwh_Pm9kl_P31FjfuFO9cXG-fPv0aF1tspZZeGk3J-vFs_mX0cpB_oYhhQUt_zZJFz6VG8dEIdKeS-YWM4kL103Iwb7WX_khg43k3lf-y_1y925_Obb-I9VXTbFILzrGz6YcO5KVSP_dInVFhavKiNuctl13vaWvsM7dTp1MDm5iGNj3XHU5SI6t0hh3l2kpUgpo2Wr_pL_qj3qPvdoerNGr0hl9go7jlEWREnj3MWOBbLGc-fhiOxRYt6uY0O8vUeDN5LvbT0C7VXw7QLYm_U6bm6vdT2AuZ83_U-P63D3G63vIbOv_u-cIrnW_iWrr3puEqmlquHM62i66jw9uAZ33-vAn-zzfB9Rz8-3XA_uN1kIgyE_fZPU-wZOssz9esYHnSl_l9e19DVqzqjcjrtmlWuM5E0WR81WZsXSSyhBRyBmwNLNtk-V0r6hShyBFaSNN1TfIUBy7VnVKH4c7YLpHOBSwZpFm6ThSvUbnpuwBgetDi2RbbxJYx4E0dOkfyVEnn3SWFl15NHxNzRLElxcP03JJiS590Y6yNr-0y0OdHd2KNPscnmo-jOsYBJwBhno74_BKAJFhV9t6P8eQI7AjsOun7UN81ZiCwiyCWnzejNV-x8QR2U1OOwG7p61DC3wEAAP__sTGqBg">