1! { dg-do run } 2! 3! PR 41106: [F03] Procedure Pointers with CHARACTER results 4! 5! Contributed by Janus Weil <janus@gcc.gnu.org> 6 7character(len=5) :: str 8procedure(character(len=5)), pointer :: pp 9pp => abc 10print *,pp() 11str = pp() 12if (str/='abcde') STOP 1 13contains 14 function abc() 15 character(len=5) :: abc 16 abc = 'abcde' 17 end function abc 18end 19 20