| ! { dg-do run } | |
| ! PR/fortran 93671 - ICE on intrinsic assignment to allocatable derived-type | |
| ! component of coarray | |
| type flux_planes | |
| integer, allocatable :: normals | |
| end type | |
| type package | |
| type(flux_planes) surface_fluxes(1) | |
| end type | |
| type(package) mail[*], halo_data | |
| halo_data%surface_fluxes(1)%normals = 1 | |
| mail = halo_data | |
| if (any(size(mail%surface_fluxes) /= [1]) .OR. & | |
| mail%surface_fluxes(1)%normals /= 1) then | |
| stop 1 | |
| end if | |
| end | |