简单 Fortran 函数返回奇数值

Question

作为一名前锋，我对 Fortran 完全是个初学者。我花了很长时间查看 SO 上的其他问题，但我无法识别与此类似的问题，所以如果我的解决方案是显而易见的，或者已经得到回答，请原谅我:)

我正在尝试学习如何在 VB.net 应用程序中正确实现自编写的 Fortran DLL。我已经能够让 VB 识别该 DLL，并执行该函数而不会出现任何错误。与实际输出相比，错误的出现更像是预期的输出。

我的 Fortran DLL 函数如下：

function ex(i) 
   integer*4 i
   ex=i+1 
   return 
end

一个非常简单的函数，它将传递的参数加一并返回值。 （我认为）。 VB 应用程序具有以下代码。

<DllImport("ex.dll")> _
Public Shared Function ex(ByRef val As Integer) As Integer
End Function


Private Sub btn_Fortran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Fortran.Click
   Console.WriteLine(ex(1))
End Sub

因此，我向 ex 函数传递整数值 1。因此我希望将值 2 写入控制台。相反，我得到的值“1073741824”不完全相等。我有什么明显不足的想法吗？

Answer 1

在混合语言内容中学习语言是“一件很难的事”。请注意，您获得的值为 2**30。

在 fortran 部分，您还应该声明函数的返回值：“integer*4 function ex (i)”是老式的方法。您可能通过隐式类型将 ex 视为真实的。在所有程序和过程中包含“implicit none”以防止隐式类型是一个非常好的主意。许多编译器都包含一个用于相同目的的选项。

后期编辑：
下面的程序通过显示当位模式实值 2.0 被解释为整数时获得的值来演示所发生的情况。首先，该程序将一个实数和一个整数相等。在这种情况下，编译器“知道”类型并转换值。在第二种情况下，原始位模式在不进行转换的情况下进行传输。

program test_tc

   real :: my_real
   integer :: my_int

   my_real = 2.0

   my_int = my_real
   write (*, *) my_int

   my_int = transfer ( my_real, my_int )
   write (*, *) my_int

end program test_tc

输出是：

           2
  1073741824

Answer 2

看来我几乎走上了正轨，但我宣布“我”的方式却导致了一些奇怪的事情发生。当使用以下约定时

integer*4 :: ex, i

函数返回正确的值。所以，我的功能看起来像这样

function ex(i) 
   integer*4 :: ex, i
   ex=i+1
   return 
end function

谢谢你们的帮助。我对你们俩投了赞成票，因为你们让我看到了我之前不完全理解的语言的某些方面。