blob: 966757d21fbab013028fec94b17afec30cd62aa0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|