! { dg-do compile }
! PR fortran/68227
! Original code contributed by Gerhard Steinmetz
! <gerhard dot steinmetz dot fortran at t-online dot de >
!
program p

   type t
   end type

   type t2
      type(t), pointer :: a
   end type

   type(t), target :: x
   type(t2), pointer :: y(:)
   integer :: i
   integer :: n = 2

   allocate (y(n))
   forall (i=1:n) y(i)%a = x

end program p