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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Compilation error when rename-list is used in use statement
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang-new : 20.0.0(3496245ed3d0b4d24444260da77dcdb93512fb5a/AArch64
```
When 'rename-list' is used in 'use' statement, a compilation error occurs.

The following are the test program, Flang-new, Gfortran and ifort compilation/execution result.

snfm_peta_xref_001_2.f90:
```fortran
program main
 print *,"pass"
end program main

module mod
 logical,protected,external :: int4
  pointer :: int4
contains
 subroutine sss()
  contains
  end subroutine sss
end module mod

subroutine subb()
  use mod,sss=>int4
end subroutine subb
```

```
$ flang-new snfm_peta_xref_001_2.f90
error: Semantic errors in snfm_peta_xref_001_2.f90
./snfm_peta_xref_001_2.f90:15:11: error: A PROTECTED entity must be in the specification part of a module
    use mod,sss=>int4
            ^^^
./snfm_peta_xref_001_2.f90:15:11: error: A PROTECTED entity must be a variable or pointer
    use mod,sss=>int4
 ^^^
$
```

```
$ gfortran snfm_peta_xref_001_2.f90; ./a.out
 pass
$
```

```
$ ifort -diag-disable=10448 snfm_peta_xref_001_2.f90; ./a.out
 pass
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy0VV-Pq7YT_TTmxQoyg4HwwENusvk9_qp21T6uBjwQX4GNbLO799tXTsje3OzubSu1ESLCf-acmTkzg97rwRA1rPjCikOCSzhZ19iTsZv-a9Ja9a1hpVgfcWBi9zs5r63htuf9iGbYGHrhLN9xEKlIBYNtLusSZEEqV6KVCqSUEkqhsKpUp9o6LzLo2wIZHHc7151KebF8B_THiQxnUDkyONFm1D4wqLj2fPGkuD5vLp7iog8YaCITGOw58s5Osx4xRJ7knHXcdt3ifLoCnd-PJ-K9HUf7os3A0REPJ-KBfOCzs4PDKRo7Xn2MH__rrQsODUejuI4ft1AMjvRK3XKGdeSXMfwA6E0_Pc0U8OnVUf8kRPYEaV8Llu_uArDCXFZXMnxCva7w2WkTOIMdgz0DmNF7BnDZJKP4-yuX92TVMhKfrFoNjXbQHY4M9rOzgbpAisGeXgM5g2NMa8ysNmFNEeez1SaQe7_VWRNQG78e9Evr7BK0Ie4juy2D-mrj7iiPlO_Ov7lyT3kN5c3ppW1_NL_4y3nYR0v5geUP32neY8XbH6nv40WQN6L_NJ8XoKi7GKLfaEITdHdRoo_C_fnNlMHxJ1rJivjKouk3jB3_5df_Pz7sHx8OnEzQ4RufFh94SxEu6trP1Oled5eimNGFWMG4xvcaur8IHr_5seJhff4D0sif0WlsR-LWXTX3d0neMWPwcX_5NMPDtco_9-cLj_5iapdwLUm8qvYf410ayUZpHDZK--g1yw-ZkHL7L1NIVJOrOq8xoSarQJZQFNsqOTWqQkEFSKxLyGVWyjrv6gqLrhKUZZlIdAMCpNhCAZDXskqrHrHcFqVsy7LPKsGkoAn1mI7j85RaNyTa-4WaTJQCRDJiS6M_jxmAcwmxfNc7awIZFXtXcUhcE-9u2mXwTIrY7_13a0GH8Tymzg2ZFQe-f9fkX-LEuBkXt7MiSuZtSiSLG5tTCLOPbQyODI6DDqelTTs7MThG1PVvMzv7lbrA4Hh2yDM4rj49N_BnAAAA__8BWSfV">