如何在Fortran中将32位整数转换为32位实数？

在Fortran中，要实现和C语言float value = *((float*)&intValue)等价的按字节复制类型转换，最标准且安全的方式是使用内置的transfer函数，它可以直接将一个变量的字节内容复制到另一种类型的变量中。

完整函数实现 #

real(kind=4) function castingInt32_to_real(intValue)
    implicit none
    integer(kind=4), intent(in) :: intValue  ! 显式指定4字节整数，消除平台差异
    
    ! 按字节复制整数的内容到实数变量
    castingInt32_to_real = transfer(intValue, castingInt32_to_real)
end function castingInt32_to_real

代码说明 #

1. 显式指定类型长度：通过kind=4明确指定整数和实数都是4字节（32位），避免不同平台默认类型长度不一致导致的问题。
2. transfer函数的作用：transfer(source, mold)会将source的所有字节复制到与mold同类型的变量中。这里mold使用函数的返回值本身，确保目标类型是4字节实数，和输入的4字节整数字节数匹配。

验证示例 #

当输入intValue = 1065353216（十六进制0x3f800000）时，该函数会返回1.0，完全符合IEEE 754单精度浮点数的编码规则，和你预期的效果一致。

不推荐的旧方法（等价块） #

虽然可以用Fortran的旧特性equivalence实现，但这种方式会让变量产生关联，容易引发潜在bug，现代代码中不建议使用：

real(kind=4) function castingInt32_to_real(intValue)
    implicit none
    integer(kind=4), intent(in) :: intValue
    integer(kind=4) :: temp_int
    real(kind=4) :: temp_real
    equivalence(temp_int, temp_real)  ! 让两个变量共享同一块内存
    
    temp_int = intValue
    castingInt32_to_real = temp_real
end function castingInt32_to_real

内容的提问来源于stack exchange，提问作者trustno1