! { dg-do compile }
! Check that the compiler reports the errors, but does not segfault.
! Contributed by: Andre Vehreschild  <vehre@gcc.gnu.org>
!
program test
    implicit none
    class(*), pointer :: P
    class(*), allocatable :: P2

    allocate(P2, source=convertType(P))

contains

  function convertType(in) ! { dg-error "must be dummy, allocatable or pointer" }
    class(*), intent(in) :: in
    class(*) :: convertType
  end function
end program test