3 ! PR 51082: [F03] Wrong result for a pointer to a proc-pointer component
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
11 procedure(ala1
), pointer, nopass
:: process
14 type(process_list
), target
:: p_list
15 type(process_list
), pointer :: p
17 p_list
%process
=> ala1
20 write(*,*) p_list
%process(1.0)
21 write(*,*) p
%process(1.0) !!!! failed