! { dg-do run }
!
! PR fortran/90076
!
! Contributed by Brad Richardson  <everythingfunctional@protonmail.com>
! 

program assignment_memory_leak
    implicit none

    type, abstract :: base
    end type base

    type, extends(base) :: extended
    end type extended

    call run()
contains
    subroutine run()
        class(base), allocatable :: var

        var = newVar() ! Crash fixed
    end subroutine run

    function newVar()
        class(extended), allocatable :: newVar
    end function newVar
end program assignment_memory_leak