blob: 966757d21fbab013028fec94b17afec30cd62aa0 [file] [log] [blame]
! { 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