gcc/testsuite/gfortran.dg/char_pointer_assign_icb_1.f90

   1 ! { dg-do compile }
   2 ! Reduced testcase from PR 50892, regressed due to r256284 (PR 78534)
   3 subroutine test
   4   use, intrinsic :: ISO_C_Binding, only: c_ptr
   5   type(c_ptr) :: text
   6   character(len=:), pointer :: ftext
   7   ftext => FortranChar(text)
   8 contains
   9   function FortranChar ( C )
  10     type(c_ptr), intent(in), value :: C
  11     character(len=10), pointer :: FortranChar
  12   end function FortranChar
  13 end subroutine test