gcc/testsuite/gfortran.dg/pr68227.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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