! { dg-do compile }! PR 18883: Fake result variables of non-constant length, in modulemodule foocontains    function s_to_c(chars)        character, pointer :: chars(:)        character(len=len(chars)) :: s_to_c        s_to_c = 'a'    end function s_to_cend module fooprogram huj    use foo    implicit none    character, pointer :: c(:)    character(3) :: s    allocate(c(5))    c = (/"a", "b", "c" /)    s = s_to_c(c)end program huj