blob: a9b039d350b5dc13b752d013da6a442a0d71c018 [file] [log] [blame]
! { 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