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