<table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Issue</th>
<td>
<a href=https://github.com/llvm/llvm-project/issues/70463>70463</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>
compiler abort (flang-new 18.0.0)
</td>
</tr>
<tr>
<th>Labels</th>
<td>
new issue
</td>
</tr>
<tr>
<th>Assignees</th>
<td>
</td>
</tr>
<tr>
<th>Reporter</th>
<td>
mfvalin
</td>
</tr>
</table>
<pre>
```
subroutine example_027
use ISO_C_BINDING
implicit none
type, BIND(C) :: demo
integer(C_INT64_T) :: i64
end type
interface
function demo_init(d) result(r) bind(C, name='init_demo')
import :: demo
type(demo), intent(IN), value :: d
type(demo) :: r
end
end interface
type(demo) :: d
d = demo_init(d)
end
```
compiling with
`flang-new -flang-experimental-polymorphism -flang-experimental-hlfir -c `
produces a compiler crash
[report.txt](https://github.com/llvm/llvm-project/files/13190399/report.txt)
[bug-745257.sh](https://github.com/llvm/llvm-project/files/13190679/bug-745257.sh.txt)
[bug-745257](https://github.com/llvm/llvm-project/files/13190680/bug-745257.txt)
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJysVM2OszgQfBpzsYKM-fWBwyRRVrlkDzv3yJgGvDI2ss38vP3KEDKJZvbwSSNFAXdXV1W3GnPnZK8BapTvUX6M-OwHY-uxe-NK6qgx7WeNCnL7kSMiL25urJm91IDhg4-Tgiuh5ZrDeHaAz__8fT1c9-fL8Xz5a0vIcVJSSI-10bAF_ecEiB5wwCJaHRBlGKUvKH3BLYzmBpPaQw82AK7ny2uRXV8fgLLINjrQ7Uq5aWoPtuPiHsC4m7Xw0uiF_yq19IhWbaCz4GYVTjacGqnb1dEBaz4CSo-IlgF_XZzRElH2Rbv0Z6z_wf3aY7VWscAXbOmgdL7cIm9czXCvfaR9rt4g9gYB3T72_q3fn6vvNS1G6fHbJNbsnfr2_7wEwoyTVFL3-F364Q7pFNf9TsM73q2v8DGBlSNoz9VuMupzNHYapBt_BAyqkxbvBL7rTNa0swCHOV4lwWJhudsk872FMPfYf3iUhx0avJ9caJSeED310g9zEwszInpS6m177CZr_gXhET11UoFD9JSkCSMpY4ieHji3caB838z9rsxympexG35DrCiD2BPt_2v-imBFngUf1aK2TluWMh5BnRSsyhJWpWk01GVLKKuKNhdcdCBoQYuECFEx1pV5U3aRrCmhaUJomeRJmSRxW7Si6pIyY5SJihQoIzByqeJgLja2j6RzM9QlyYo0UrwB5ZYbiNKwO0sSURouJFsvDTVz71BGlHTefbF46RXU98XgzfIF0uprDZMqJjFBlEWzVfUfT29xEsa3OP0vAAD__8cKiSo">