C++ 和混合编程中指针的默认参数

Question

C++中指针默认参数的用法可以用下面的代码演示

#include <iostream>

void myfunc_(int var, double* arr = 0) {
  if (arr == 0) {
    std::cout << "1 arg" << std::endl;
  } else {
    std::cout << "2 arg" << std::endl;
  }
}

int main() {
  myfunc(1);
  double *arr = new double[2];
  myfunc(1, arr);
}

在这种情况下，程序的输出是

1 arg
2 arg

另一方面，如果我尝试将可选参数从 Fortran 传递到 C++，它不起作用。下面的示例代码演示了 sutiation

myfunc.cpp

#include <iostream>

extern "C" void myfunc_(int var, double* arr = 0) {
  if (arr == 0) {
    std::cout << "1 arg" << std::endl;
  } else {
    std::cout << "2 arg" << std::endl;
  }
}

和Fortran 主程序

program main
use iso_c_binding

real*8 :: arr(2)

call myfunc(1)
call myfunc(1, arr)
end program main

并且可以使用以下命令编译混合代码（Fortran 和 C++）而不会出现任何错误

g++ -c myfunc.cpp
gfortran -o main.x myfunc.o main.f90 -lstdc++ -lc++

但程序打印

2 arg
2 arg

在这种情况下。那么，这个问题有什么解决办法吗？我在这里遗漏了什么吗？我认为在混合编程中使用默认参数并不像预期的那样工作，但此时我需要建议。

Answer 1

正如评论中指出的那样，extern "C" 函数中的参数不能有默认值。但是，您可以在函数的 Fortran 接口中使用可选参数，并按照您想要的方式调用它：

#include <iostream>
extern "C" void myfunc(int var, double* arr) { //removed the = 0 and renamed to myfunc
  if (arr == 0) {
    std::cout << "1 arg" << std::endl;
  } else {
    std::cout << "2 arg" << std::endl;
  }
}

在 Fortran 中创建一个描述 C(C++) 函数的接口：

program main
use iso_c_binding

interface
  subroutine myfunc(var, arr) bind(C, name="myfunc")  
    use iso_c_binding
    integer(c_int), value :: var
    real(c_double), optional :: arr(*)
  end subroutine
end interface

!C_double comes from iso_c_binding
real(c_double):: arr(2)

call myfunc(1_c_int)
call myfunc(1_c_int, arr)
end program main

关键是界面中的optional属性。如果您不提供可选数组，则会传递一个空指针。

还要注意 var 参数的 value 属性。这是必要的，因为 C++ 函数按值接受参数。

注意：这是 Fortran 2008 标准的 TS 最近添加的内容，但得到了广泛支持。

C++ 和混合编程中指针的默认参数

Default arguments for pointer in C++ and mixed programming

c++

fortran

pointers

default-arguments

mixed-programming