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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Compilation error when arrays specified in the COMMON block are declared with EQUIVALENCE
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang:frontend,
            new issue,
            flang
      </td>
    </tr>

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

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

<pre>
    ```
Version of flang-new : 18.0.0(c07062a2e9bf9aa1211b958f6bb4c5746139c180)
```
Declaring arrays specified in a `COMMON` block with `EQUIVALENCE` results in a compilation error.

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

cvct6211.cmp_2.f90:
```fortran
PROGRAM MAIN
  INTEGER(KIND=4)::RV01(-9:10)
  INTEGER(KIND=4)::LV01(10)
 COMMON // RV01, LV01
  CALL INIT()
END PROGRAM MAIN

SUBROUTINE INIT()
  COMMON // RV01, LV01
  EQUIVALENCE (RV01(1), LV02), (LV02(11), LV01)
  INTEGER(KIND=4) LV01(10), LV02(11)
  INTEGER(KIND=4) RV01(-9:10)
  RETURN
END SUBROUTINE INIT
```

```
$ flang-new cvct6211.cmp_2.f90
error: Semantic errors in cvct6211.cmp_2.f90
./cvct6211.cmp_2.f90:11:19: error: 'lv01' is storage associated with 'rv01' by EQUIVALENCE elsewhere in COMMON block //
 INTEGER(KIND=4) LV01(10), LV02(11)
 ^^^^
$
```

```
$ gfortran cvct6211.cmp_2.f90
$
```

```
$ ifort cvct6211.cmp_2.f90
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJycVVFvozgQ_jXOy6jIHgiBBx7YhFTRtfQum_b1ZMCA9wiObKdR__3JQNukm-5dV0IkNjPfeL75ZsyNkU0vRELm38h8NeNH2yqdqLZXN_WPWaGql4SEdHroitD0SWgjVQ-qhrrjfXPTixMQPwUWedSjBKOSLmiIHEVc1DHnDBkr4nlUh0URlPNFEDI_LllECcYj5IcIK1F2XMu-Aa41fzFgDqKUtRQVyB44kJAuH-7vH3ISUig6Vf4DJ2lbt5_99bh5Su-yfJm5j1qYY2fN6Faq_UF23LrDC62V9qbow3vXCqhV16nTGFiAbQVYYSwctGo03xNcwvo1Y7e4rZW2mvfA-wqkW1zEGINfBCmfSxsiY165P_yNXh1T4qcfOJhAx90_tw-32_Qe7tNNPu4AbPJddpttCUZ_bPIV8VeBI9JPiZ9unygjGN24JXvn95c-d6PPufnILhBcE1zDCLqEwXDCW6Z3d7DJNzuC0Ztflq_g5wOP7--P37YPj7tNnv3kBv8j3lldgWA05ckcxmiJ01-C0biK2NlX9l9UwAULb5ATyC89P-V8m-0et_k7NR8puCb965sYnLXaFQ0NVoOkXR9-F3veW1mOIh_E_5mPR3B9VZOMuZdLCd5wCS66Z5frAqQBY5XmjQBujColt6KamhAXerIqXi7qJjojTq3Qwp1oKvnYvWPhJ95-uz5knr0_r8R9jeXmtaM_I-zLiNNY-CLcrEr8KvZjPhMJC-MgoGHIolmbMOojUqxYEBdVNa9rvmDzIKIFXRTcx2omE6To05gxGviURV7kC4YVUlGUhaijmARU7LnsvK573ntKNzNpzFEk4TxGnHW8EJ0ZbgPEQXPET2uteiv6iiASXBJEJ8PB621nNEV0d4hOHPRNcWwMCWgnjTXvway03XDbDJOUzFew_DiW4dSK_urodxP5QjhuTFfDbfEqvzPBzY66S1prD8YNukFijbTtsfBKtSe4dmeafm4OWv0QpSW4HvIyBNcDIf8GAAD__8RR72s">