简单Fortran函数返回的奇数值

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

在Fortran部分,还应该声明函数的返回值:“integer*4 function ex(i)”是老式的方法。通过隐式输入,你可能会得到一个真正的ex。在所有程序和过程中包含“隐式无”是一个非常好的主意,以防止隐式键入。许多编译器都包含用于相同目的的选项。

后期编辑: 下面是一个程序,它通过显示位模式实值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

看起来我几乎走到了正确的轨道上,但是我宣布“我”的方式让一些奇怪的事情发生了。使用以下惯例时

integer*4 :: ex, i

函数返回正确的值。所以,我的函数看起来是这样的

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

谢谢你们两个的帮助。我反对你们两个只是把我的眼睛放在我事先没有完全理解的语言的某个方面。