2 ! Check that the compiler reports the errors, but does not segfault.
3 ! Contributed by: Andre Vehreschild <vehre@gcc.gnu.org>
8 class(*), allocatable
:: P2
10 allocate(P2
, source
=convertType(P
))
14 function convertType(in
) ! { dg-error "must be dummy, allocatable or pointer" }
15 class(*), intent(in
) :: in
16 class(*) :: convertType