! { 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 | |