2 ! PR 18883: Fake result variables of non-constant length, with ENTRY
4 character, pointer :: chars(:)
5 character(len=len(chars)) :: s_to_c, s_to_c_2
17 function s_to_c(chars)
18 character, pointer :: chars(:)
19 character(len=len(chars)) :: s_to_c
22 function s_to_c_2(chars)
23 character, pointer :: chars(:)
24 character(len=len(chars)) :: s_to_c_2
28 character, pointer :: c(:)
32 c = (/"a", "b", "c" /)