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