[英]What is the official way to deal with string in C++/FORTRAN interop
我想了解C ++ / FORTRAN互操作性的最新改进,尤其是字符串。 以下是我未成功的尝试,请帮助我纠正或建议更好的解决方案。 我的编译器是gcc 4.8.5
在C ++中
#include <iostream>
extern "C"{
void SayHello(char*);
}
int main(int argc, char** argv){
char * name = argv[1];
SayHello(name);
return 0;
}
在Fortran
module MyModule
contains
subroutine SayHello(people) bind(c,name="SayHello")
use, intrinsic :: iso_c_binding
character, dimension(50), intent(in) :: people
write(*,*) "Hello ", people
end subroutine
end module MyModule
尝试使用c_char
类型:
character(kind=c_char), dimension(*), intent(in)
编辑1因此,在@francescalus提出问题之后,我进一步研究了这个问题。 基本上,“假定大小”字符数组不是必需的1 ,虽然我确实认为char数组的大小是(如果我错了,请纠正我)。 我将在下面发布一个C调用Fortran版本,因为我不知道C ++语法并且不想查找它。
编辑2如脚注1所述,将Fortran程序中的people
声明为假定大小的字符数组,或者(由@VladimirF建议),其大小由sz
直接给出是正确的。 我在下面的代码中清除了这一点。
Fortran计划:
! SayHello.f90
subroutine SayHello(people,sz) bind(c,name="SayHello")
use, intrinsic :: iso_c_binding
implicit none
! Notes:
! The size `sz` of the character array is passed in by value.
! Declare `people` as an assumed-size array for correctness, or just use the size `sz` passed in from C.
character(kind=c_char), intent(in), dimension(sz) :: people
integer(kind=c_int), intent(in), value :: sz
write(*,*) "Hello, ", people(1:sz)
end subroutine
而C程序:
/*Hello.c */
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
void SayHello(char *name, int len);
int main(int argc, char** argv){
size_t sz = strlen(argv[1]);
char * name = malloc(sz+1);
strcpy(name, argv[1]);
SayHello(name, sz+1);
free(name);
return 0;
}
编译(使用ifort),调用和输出:
ifort /c SayHello.f90
icl Hello.c /link SayHello.obj
Hello.exe MattP
// output: Hello, MattP
1更新:似乎官方用法“for interoperability”是使用假定的大小声明为字符数组: char(len=1,kind=c_char), dimension(*), intent(in)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.