blob: a9b039d350b5dc13b752d013da6a442a0d71c018 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
