gcc/testsuite/gfortran.dg/pr68227.f90

   1 ! { dg-do compile }
   2 ! PR fortran/68227
   3 ! Original code contributed by Gerhard Steinmetz
   4 ! <gerhard dot steinmetz dot fortran at t-online dot de >
   5 !
   6 program p
   7
   8    type t
   9    end type
  10
  11    type t2
  12       type(t), pointer :: a
  13    end type
  14
  15    type(t), target :: x
  16    type(t2), pointer :: y(:)
  17    integer :: i
  18    integer :: n = 2
  19
  20    allocate (y(n))
  21    forall (i=1:n) y(i)%a = x
  22
  23 end program p