+2005-10-20 Erik Edelmann <erik.edelmann@iki.fi>
+
+ PR fortran/21625
+ * gfortran.fg/der_init_1.f90: New.
+
2005-10-19 Ulrich Weigand <uweigand@de.ibm.com>
* gcc.dg/20050824-1.c (f): Clobber %r13 and %r14 only on s390x.
--- /dev/null
+! { dg-do run }
+! Check that allocatable/pointer variables of derived types with initialized
+! components are are initialized when allocated
+! PR 21625
+program test
+
+ implicit none
+ type :: t
+ integer :: a = 3
+ end type t
+ type :: s
+ type(t), pointer :: p(:)
+ type(t), pointer :: p2
+ end type s
+ type(t), pointer :: p
+ type(t), allocatable :: q(:,:)
+ type(s) :: z
+ type(s) :: x(2)
+
+ allocate(p, q(2,2))
+ if (p%a /= 3) call abort()
+ if (any(q(:,:)%a /= 3)) call abort()
+
+ allocate(z%p2, z%p(2:3))
+ if (z%p2%a /= 3) call abort()
+ if (any(z%p(:)%a /= 3)) call abort()
+
+ allocate(x(1)%p2, x(1)%p(2))
+ if (x(1)%p2%a /= 3) call abort()
+ if (any(x(1)%p(:)%a /= 3)) call abort()
+end program test
+