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