! { 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