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