! { dg-do compile } | |
! PR 18883: Fake result variables of non-constant length, in module | |
module foo | |
contains | |
function s_to_c(chars) | |
character, pointer :: chars(:) | |
character(len=len(chars)) :: s_to_c | |
s_to_c = 'a' | |
end function s_to_c | |
end module foo | |
program 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 |