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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Fortran pointer shall not be allowed as a memeber of a BIND(C) common block
        </td>
    </tr>

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

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

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

<pre>
    Consider the following code:
```
module mod
implicit none
bind(c) :: /blk/
common /blk/ x
integer, pointer :: x
end module
```

`x` should not be allowed as the member of bind(c) common block `blk` as `x` that has the POINTER attribute is not C-interoparable.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJxsUl1v3CAQ_DX4ZZUTXp-_Hvzg3NVSXtKq6h8As7ZpMJwAp-m_r_A5TRVVQkILmtmZ2RUh6NkSdax8ZOU1E1tcnO-uwmoyl8tCNpNO_e4uzgatyENcCCZnjPul7QyjU8SKnvGeVfw4vF-d2gzB6hTjvV5vRo86gnWWGO-ltophMzJsIUGLHhgO0rwwHBjvR7euzn48wVvisJFm8gwvcHOp8O_Q9EtWwb3lJx338o1VHMLiNqPAugiSQCT9pECE3c9KqyQPboJ_xR1KpHHjC7CKJz0VT5h30riICMtB8u3r0_OPL99BxOi13CKBDnu_y8Ou2N2EF9LQKVNdodqiFRl1eV1ixUuOebZ0ouJ1g02hGtnIqq7zohWtGOVUtbJopzLTHXIseZ2XeXMuzvlJYT0qxWWuinbEOmdnTqvQ5mTM63pyfs50CBt1-blpETMjJJmwjxpxMsLOrOgn72ykZBvTAvguYR_kNgd25kaHGD7Yoo5mX5U7uLzC4Hz0wv4dS1iEMf-JWaSQ6UhZwOPT85Vhc_mcc7Z50y0x3kKaLw4Mh1nHZZOn0a0Mh6TkuB5u3v2kMTIcdpOB4XD4fO3wTwAAAP__QfHk2w">