! { dg-do run }

! Contributed by Damian Rouson
! Same like coarray/alloc_comp_4

program main

  implicit none

  type mytype
    integer, pointer :: indices(:)
  end type

  type(mytype), save :: object[*]
  integer :: me

  me=this_image()
  allocate(object%indices(me))
  object%indices = 42

  if ( any( object[me]%indices(:) /= 42 ) ) STOP 1
end program