! { dg-do run }
!
! PR fortran/40850
! The code freeing allocatable components used to be put after the code
! freeing the containing entity.
!
! Original test case by Marco Restelli <mrestelli@gmail.com>
! Reduced by Daniel Franke <franke.daniel@gmail.com>
!        and Janus Weil <janus@gcc.gnu.org>


  type t
    integer, allocatable :: d(:)
  end type
  type(t), allocatable :: a(:)

  ! Big enough to make it fail
  allocate(a(2 * 1024))
  call sub( (/ a /) )

contains

  subroutine sub(b)
    type(t) :: b(:)
  end subroutine

end