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