Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/51948

!

  type :: t

  end type t

contains

  function func(x, y)

    class(t) :: y

    type(t), allocatable :: func

    type(t), allocatable :: x

    select type (y)

      type is(t)

        call move_alloc (x, func)

    end select

  end function

  function func2(x, y)

    class(t) :: y

    class(t), allocatable :: func2

    class(t), allocatable :: x

    block

    block

    select type (y)

      type is(t)

        call move_alloc (x, func2)

    end select

    end block

    end block

  end function

end