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