! { dg-do compile } | |
! Reduced testcase from PR 50892, regressed due to r256284 (PR 78534) | |
subroutine test | |
use, intrinsic :: ISO_C_Binding, only: c_ptr | |
type(c_ptr) :: text | |
character(len=:), pointer :: ftext | |
ftext => FortranChar(text) | |
contains | |
function FortranChar ( C ) | |
type(c_ptr), intent(in), value :: C | |
character(len=10), pointer :: FortranChar | |
end function FortranChar | |
end subroutine test |