1! { dg-do compile }
2! Check that the compiler reports the errors, but does not segfault.
3! Contributed by: Andre Vehreschild  <vehre@gcc.gnu.org>
4!
5program test
6    implicit none
7    class(*), pointer :: P
8    class(*), allocatable :: P2
9
10    allocate(P2, source=convertType(P))
11
12contains
13
14  function convertType(in) ! { dg-error "must be dummy, allocatable or pointer" }
15    class(*), intent(in) :: in
16    class(*) :: convertType
17  end function
18end program test
19