1! { dg-do run } 2! 3! PR 41106: [F03] Procedure Pointers with CHARACTER results 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6 7module m 8 type :: t 9 procedure(character(len=5)), pointer, nopass :: ptr 10 end type 11contains 12 function abc() 13 character(len=5) :: abc 14 abc = 'abcde' 15 end function abc 16end module m 17 18use m 19 type(t) :: x 20 character(len=5) :: str 21 x%ptr => abc 22 print *,x%ptr() 23 str = x%ptr() 24 if (str/='abcde') STOP 1 25end 26