如何解决Fortran使用返回字符串的c函数
我的代码
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <string.h>
void format_time(char * argc,char ** output,int *n){
time_t rawtime;
struct tm * timeinfo;
char out[100];
time ( &rawtime );
timeinfo = localtime ( &rawtime );
strftime(out,100,argc,timeinfo);
*output = out;
printf("%s\n",*output);
*n = strlen(*output);
}
我的 Fortran 代码
program name
use iso_c_binding
implicit none
interface
subroutine test(inp,out,n) bind(c,name= 'format_time')
use iso_c_binding
character(kind=c_char),intent(in) :: inp(*)
integer(kind=c_int),intent(out) :: n
type(c_ptr) :: out
end
end interface
character(kind=c_char,len=50),pointer :: timestr
type(c_ptr) :: tt
integer(c_int) :: nn
call test("%B"//c_null_char,tt,nn)
call c_f_pointer(tt,timestr)
print *,timestr !<-- prints junk
print*,nn
end program name
输入字符串正确传递给 c 函数,从 c 函数内部的打印可以看出,但输出不起作用。如何解决这个问题?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。