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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] BIND(C): Incorrect diagnose of entity with binding attribute
        </td>
    </tr>

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

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

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

<pre>
    Consider the following test case:
```
module m
  use, intrinsic :: iso_c_binding
  bind(c, name = "A") :: a          !! ERROR  error: The entity 'a' has multiple BIND names
  integer(c_int) :: a = 4
end
```

The code seems standard conforming to me. 
XLF, gfortran and ifort all accept the above code.
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJxsUsGK4zoQ_Jr2pZlgt-0kPviQSV5g4PEeDHvY2yBLbVuLLAWpPcP8_SJnssvCGiPR0NWl6iqVkp08cw_tM7SXQq0yh9hflLfszueZfTEE89mfg0_WcESZGcfgXPiwfkLhJKhVYqhPUF6gPMG-_Pq3cglmdYzLvUJcEwOd0XqJ1ierMQPrE9oU3vTbYL2xfno05xLoqDPCq4UR6gsC0QmIgLoHVuGvD6gCqvCf19f_XxE5xhBzx7eZkb1Y-USggwI64KwSLqsTe3OMzy__XTaG9KC2XnjimNnfrJc_2PIrmnsje_NX2fcz0-pgGBPzkjCJ8kZFgzr4McRlW2DAhXd47__-7zVLncYQJSqPyhu0uUDlHCqt-SabAWoI7_fRu8L0tenqThXcV4eqbtuaqCzmXtWmNa0Zmqrbm_3xWB06rcyoWVPXmmFf2J5Kasqm6qquLKncVS0343BQpRorQ9xBU_KirNs5977sQpwKm9LK_bFr6q5wamCXttwQDeu0eXIGotEpP0F9GmPwkhdElJMV-zzmaVinBE3pbJL0e7BYcVsGrxu4vWyWAB3PQF3e-ovXIUbWgsaqyYfEGMaHpx9WZvzKDiqRaIdVuFij62eRW8rO0RXoOlmZ12GnwwJ0zeRf19Mthh-sBei6SUxA103lzwAAAP__mh_zjA">