数值溢出显示负数

Transpose

结果超过了2**31-1，溢出了
应该使用integer(8)

[Fortran] 纯文本查看 复制代码

program main
implicit none
integer(8):: fp
fp = 800000_8*24240_8
print*, fp
end program