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

    <tr>
        <th>Summary</th>
        <td>
            [flang] implicit none(external) breaks array subscripting
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </td>
    </tr>

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

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

<pre>
    ### Problem
When using `implicit none(external)`, Flang seems to interpret the names of arrays in subscript expressions as names of undeclared functions, raising an error.

### Reproduction
```f90
program hello
    implicit none (type, external)

    real, parameter :: x(3) = (/1, 2, 3/)
    integer :: i
    do i = 1,3
        print *, x(i)
    end do

end program
```
```sh
flang-new-16 hello.f90 -flang-experimental-exec
```
```text
error: Semantic errors in hello.f90
./hello.f90:7:18: error: 'x' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
 print *, x(i)
                   ^
```
Removing the `implicit none (external)` causes it to compile correctly.

### Version
```sh
Ubuntu flang-new version 16.0.1 (++20230328073357+42d1b276f779-1~exp1~20230328073502.65)
Target: x86_64-pc-linux-gnu
Thread model: posix
InstalledDir: /usr/lib/llvm-16/bin
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyEVEtv4zYQ_jX0ZWCBImVJPujgxBEQYJsu0vRxKyhxLLGlSIGkssplf3tBybGz3nZrCAQ87--bh_BedQaxIrs7sjtuxBR666oQghjFprHyrSKMrx98drbROBB6JPTwe48GJq9MBySnahi1alUAYw0SVuIc0BmhCduTnBJ2D7UWpgOPOHgIFpQJ6EaHAUKPYMSAHuwJhHPizYMy4KfGt06NAXAeHXqvrPEg_NV2MhJbLRxKOE2mDdEgZnJCLWUJA-icdcla8Pm9oHnG0Vk5LX5nXU7X77Snq2R0tnNigB61tqsIAOAbtEBYGd5GjKk_wv6QNPo4jOJ7GIUTAwZ0QPiB8APMhJWcsD0QfoyxCKvTaMjiwwmrL8GW1CZgd3VWV420oJYY0Ztf5fE3OmUCEHaIMWNC9U1QNBKk_VhxlJzB33Bz89f3q-AU27s1-GWb5itdyWlPYbvKcR7RqQFNEHqLM7Y_DhpwDuc6YgMj0F9wECaodm3pMiGXLKtpQlh9FfFDQfghLaPvJQhhxUxYAcovw3FuVgTaopwcwhcVejutM_nwx8vD89PhE4gQnGqmgDGpAN_acbWEx58-f3q8f3yBp5-fHggr312u5P4P8Tc_snv4V2KecbCvcaRjXbfbBt-tG7Ri8uhBhbhprR1GpRFa6xy2Qb_9xz78hs5_vwrv_f21mUyY4NJmeF3NIc0TmqTr4N4Rdsco45Szkhac7wrC7jIm04YV-ako9tv0K85j-vWD0Y6yJN9dWHkRrsOw7EWZ_5ln27HdamWmeduZ6WzSOxQSBitRR8PRejWvqkfjg9Aa5VGdG15P3hFWa9XEV78O2zQnrG7ULdCNrLjc873YYJXmZZpyRlm26SsuaUn5qeGyaE-cFTSTZcZSzEshUyHbjaoWOFlKU04LmiV4ShdltmP7hsk9ySgOQukk5k-s6zbK-wmrnNGs2GjRoPbLAWYsMrsoCWPxHrtqqbmZOk8yqpUP_holqKCXy710heyO8IMzDI1D8bdfL-z1uirTbSanqz6E0cejEu9N3anQT03S2uHM2jt5o7N_YRsIq5cqPWH1guKfAAAA__9Zw9nT">