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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Execution error (Aborted) when the array size of the return value of pack intrinsic function is different from the array size of the assignment target
        </td>
    </tr>

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

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

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

<pre>
    ```
Version of flang-new : 19.0.0(73447a3302541c343525570222b318e7f94f9402)/AArch64
```

When the array size of the return value of `pack intrinsic function` is different from the array size of the assignment target, the execution terminates abnormally (Aborted).  
When the value of a `logical` variable is changed from .false. to .true., the execution terminates normally.

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

cv1035_22.f90:
```fortran
program main
  integer*8 a(2),c(2)
  logical*4 g
  data a/2*1/,g/.false./
  c = pack(a,g)
end program main
```

```
$ flang-new cv1035_22.f90; ./a.out

fatal Fortran runtime error(/work/home/ohno/CT/test/fort/tp/reproducerJ/Metro/CHMK23/cv1035_22.f90:5): Assign: mismatching element counts in array assignment (to 2, from 0)
Aborted (core dumped)
$
```

```
$ gfortran cv1035_22.f90; ./a.out
$ 
```

```
$ ifort -diag-disable=10448 cv1035_22.f90; ./a.out
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJycVUGTnDYT_TU9l66hoAUzcOCAdz--VFK-uZJjSkADsoU0JYndbH59SgyzXk_sxE7V1g7qaXU_Xr_XI71Xk2GuoXgHxeNBrmG2rrazscfx46Gzw0sNp3T_Sx8hbX5l55U1aEcctTTT0fAzgmgwq5I0SYHKs8jzsxQipSLPepGLgorinBJRJ7KSz2OVj1WeElAF1DaN6-dTfi1-1-v6_7eZDYaZUTonX9CrPzl2jxHHYXUGn6Retxic0ovsP6EywSnjVY_javqgrIFTisrjoMaRHZuAo7PLN6peWVliVpBu4gD0sH3Bf3C_xmoY2C3KyMAeZWesW6TWLwhUNp11gQegKkG8w_8KU0ag2k6qlzoCe5JOyU5zRNjP0kw8XPElo9SeEwwWk-BWTv4RyQ1H8pa9DzPjaLW2z8pMKB1v9wP7gBdnJyeXWLO9jTIe_j9aF5w0KM2AKh6wt8tFabkxSe3n7o79qsMXDfunLBXF70TJWKUgmrvJ7rWv0R0BLlLtEYyz44kdUFOiBCqvOnnob4972o0-anKcbsFBBhkvtQTUZEAt0MME1O48xsCe2SOIR4xiASrlNW2vzWbAvwP7qjTvg5S_McUdEe8w9peJXcPbEqMMUmO7M-5WE9TCyM5ZB1QCtc_WfQJqZ7swUButCdQ-fABq4xCB2shoPF2AWscXZ4e1Z_czUPueg9uyf3r_Cwmg9n42RXxp0WCzKT4-LcovMvRzFAtr3kzQ29UEj8rsXnnjD6AyWKSomk2w6SuLuxFiRm8d47Aul80Xr1T9GK_TTZT_Sivl-GOlrxI_DkpOx0H56EQQj1ma5-X3dPtq3cNQi6ESlTxwnZ0pS6uTKMRhrmVO3J8LWRYD5UV1yoYqO50FdVzwua_EQdWUUp6es1NKWZWJ5FRIJuaKulPeFUUGecqLVDrR-mlJrJsOyvuV66qsyvSgZcfabwudaBMjiGaXFRDFLe_qePPYrZOHPNXKB_-5VlBBb78H20qA4hH_9-r2TZVfbjl8_v7t_I3V_N_38mF1up5DuPi4Z6Lb20mFee2S3i5AbXyp_eN4cfYj99EoG1seqL0S9lTTXwEAAP__2L8d4w">