1! { dg-do compile }
2! PR 18883: Fake result variables of non-constant length, in module
3module foo
4contains
5    function s_to_c(chars)
6        character, pointer :: chars(:)
7        character(len=len(chars)) :: s_to_c
8        s_to_c = 'a'
9    end function s_to_c
10end module foo
11
12program huj
13
14    use foo
15
16    implicit none
17    character, pointer :: c(:)
18    character(3) :: s
19
20    allocate(c(5))
21    c = (/"a", "b", "c" /)
22    s = s_to_c(c)
23
24end program huj
25