Присвоить строку переменной длины строке фиксированной длины

Question

Я пытаюсь переместить некоторый код C в Fortran. Тем не менее, у меня возникают проблемы с получением строк переменной длины C, возвращаемых C API, в строки фиксированной длины, требуемые API Fortran.

Вот приведенная версия кода, который не будет компилироваться - я получаю The shapes of the array expressions do not conform.

character*200 function getValueFromC() 
    use cbridge 
    implicit none 

    type(c_ptr) :: resultString 
    integer(kind=c_int) :: resultLength 
    character, pointer, dimension(:) :: string 

    call c_bridge_getValue(bridge, resultString, resultLength) 
    call c_f_pointer(resultString, string, (/ resultLength /)) 
    getValueFromC = string 
    call c_bridge_releaseString(resultString) 
end function getValueFromC 

cbridge только модуль, содержащий определения c_bridge_getValue() и c_bridge_releaseString и bridge указатель (только void*)

c_bridge_getValue() просто malloc S новую строку и возвращает его, и c_bridge_releaseString()free s память ,

Так что мой вопрос: что мне нужно сделать, чтобы назначить переменную string на getValueFromC?

Answer 1

Одним из решений является цикл и назначение строковых фрагментов. Я не проверял, что это на 100% правильно, но он компилируется для меня ...

character*200 function getValueFromC() 
    use cbridge 
    implicit none 

    type(c_ptr) :: resultString 
    integer(kind=c_int) :: resultLength 
    character, pointer, dimension(:) :: string 

    call c_bridge_getValue(bridge, resultString, resultLength) 
    call c_f_pointer(resultString, string, (/ resultLength /)) 
    do i = 1, min(200, resultLength) 
    getValueFromC(i:i) = string(i) 
    end do 
    call c_bridge_releaseString(resultString) 
end function getValueFromC