! { dg-do run }
! { dg-options "-fcoarray=lib -lcaf_single" }
! { dg-additional-options "-latomic" { target libatomic_available } }

! Contributed by Damian Rouson

program main
  implicit none

  type particles
    real x(2)
  end type

  type vector
    type(particles), allocatable :: v(:)
  end type

  type(vector) :: outbox[*]
  type(particles), allocatable :: object(:)[:]

  allocate(outbox%v(1), source=particles(this_image()))

  if (any( outbox[1]%v(1)%x(1:2) /= [ 1.0, 1.0] )) STOP 1
  if (any( outbox[1]%v(1)%x(:) /= [ 1.0, 1.0] )) STOP 2
  if (any( outbox[1]%v(1)%x /= [ 1.0, 1.0] )) STOP 3

  allocate(object(1)[*], source=particles(this_image()))

  if (any( object(1)[1]%x(1:2) /= [ 1.0, 1.0] )) STOP 4
  if (any( object(1)[1]%x(:) /= [ 1.0, 1.0] )) STOP 5
  if (any( object(1)[1]%x /= [ 1.0, 1.0] )) STOP 6
end program