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

    <tr>
        <th>Summary</th>
        <td>
            [flang][coarray] Unexpected error: 'fir.store' op store value type must match memory reference type
        </td>
    </tr>

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

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

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

<pre>
    ```
% cat r.f90
```
```
 class(*),allocatable :: a[:]
 allocate(real::a[1:*])
 end
```
```
% flang -c -fcoarray r.f90
warning: Support for multi image Fortran features is still experimental and in development.
error: loc("r.f90":2:2): 'fir.store' op store value type must match memory reference type
error: verification of lowering to FIR failed
```
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJysUsGunDoM_ZqwsQaBgWFYsOC-EdLrqmrVDzDBYVKFBCVh7p2_r2DQ7XTTVSUQJjn2ObYPhaAny9yK6k0gfrl-JW0Mrx8CUVTXhNZ4c74NQZJZnOVkcOOjFefseLJOYAWSIvhUNfv_691LDNJQCAIvAjuBjcD_yBgnKdJgGETRiaID2mQUnaiuW8YBYIEXz2SemA2SbyHuMGw2JNvxL9SbRGXITnCScFLSkff0-FT8Tt5qO23839dlcT6Cch7m1UQNeqaJoXc-erKgmOLqOYAOEKI2BvhjYa9ntpEMkB1BWxj5zsYt22Eqso69d36rbpzc-8cnM6IouueLzXYvsFbapyE6zwJrcAvsMdzJrAzxsTDMa4gwU5Q3mHl2_gGeFXu28gl45buz10pLitpZcAqMe2ev7QTRQf__N1CkDf8xuGRsi7EpGkq4zev6XJdZhnVya0ldmBrFFapM5UNxGatmyPKxHEZJ54IT3WKG56zEPMOqKOu04Us5ZnUtq5o4RxZlxjNpkxpzn1Pnp0SHsHKbN0Ve5ImhgU04bLgv63Cgb7eE07BOQZSZ0SGG3yWijmb37jOjuorq7VivqK7ww27rkZFH-BzKvxhysnrT3mJcwm7EXmA_6Xhbh1S6WWC_6Ts-p8W7nyyjwH7vNwjsj5bvLf4KAAD__39QFV4">