! { dg-do run } | |
! | |
! PR 51082: [F03] Wrong result for a pointer to a proc-pointer component | |
! | |
! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
program ala | |
implicit none | |
type process_list | |
procedure(ala1), pointer, nopass :: process | |
end type | |
type(process_list), target :: p_list | |
type(process_list), pointer :: p | |
p_list%process => ala1 | |
p => p_list | |
write(*,*) p_list%process(1.0) | |
write(*,*) p%process(1.0) !!!! failed | |
contains | |
real function ala1(x) | |
real, intent(in) :: x | |
ala1 = x | |
end function | |
end program |