! { 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