Subversion Repositories openrisc_2011-10-31

! { dg-do run}

!

! PR fortran/41479

!

! Contributed by Juergen Reuter.

!

program main

 type :: container_t

    integer :: n = 42

    ! if the following line is omitted, the problem disappears

    integer, dimension(:), allocatable :: a

 end type container_t

 type(container_t) :: container

 if (container%n /= 42) call abort()

 if (allocated(container%a)) call abort()

 container%n = 1

 allocate(container%a(50))

 call init (container)

 if (container%n /= 42) call abort()

 if (allocated(container%a)) call abort()

contains

 subroutine init (container)

   type(container_t), intent(out) :: container

 end subroutine init

end program main