+
−! { dg-do run }
+
−!
+
−! PR 41106: [F03] Procedure Pointers with CHARACTER results
+
−!
+
−! Contributed by Janus Weil <janus@gcc.gnu.org>
+
−
+
−character(len=5) :: str
+
−procedure(character(len=5)), pointer :: pp
+
−pp => abc
+
−print *,pp()
+
−str = pp()
+
−if (str/='abcde') STOP 1
+
−contains
+
− function abc()
+
−  character(len=5) :: abc
+
−  abc = 'abcde'
+
− end function abc
+
−end
+
−