Subversion Repositories openrisc

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