如何使用fortran-C绑定将fortran字符串传递给c++中的const char*？

module fortran_c_binding
  use iso_c_binding
  implicit none

  interface
    subroutine c_function(str) bind(C, name="c_function")
      use iso_c_binding
      character(kind=c_char), intent(in) :: str(*)
    end subroutine c_function
  end interface

end module fortran_c_binding

extern "C" {
  void c_function(const char* str) {
    // 在这里使用str进行必要的操作
  }
}

program main
  use iso_c_binding
  use fortran_c_binding
  implicit none

  character(len=10) :: fortran_str = "Hello"
  character(kind=c_char), pointer :: c_str_ptr
  integer(c_int) :: c_str_len

  ! 将Fortran字符串转换为C指针
  call C_F_POINTER(C_LOC(fortran_str), c_str_ptr, [LEN(fortran_str)])

  ! 调用C函数并传递C字符串
  call c_function(c_str_ptr)

end program main