fortran - 在 G95 中使用四精度对 'qcos_' 和 '_g95_qcos_r16' 的 undefined reference

Question

我试图在 FORTRAN[real(kind=16)] 上实现四倍精度，但我不断收到错误

C:\User\User\AppData\Local\Temp/ccUMY6b.0:forcefunction.f95:(.text+0x437):
undefined reference to 'qcos_'

我试图改变 qcos至 cos但，

C:\User\User\AppData\Local\Temp/ccM5CBUM.0:forcefunction.f95:(.text+0x2fd1):
undefined reference to '_g95_qcos_r16'

sin 同样的问题, abs , acos , asin , sqrt

Answer 1

kind=16不一定是四倍精度。 kind 值不是由语言标准定义的，并且不能跨编译器移植。十六可能不是编译器上四精度的种类值。

并非所有编译器在所有架构上都支持四倍精度。您可以通过打印以下值来检查:

selected_real_kind (14)
selected_real_kind (17)
selected_real_kind (32)

第一个请求 double ，下一个请求有时在 Intel 处理器上可用的中间精度(10 字节)，最后一个 quad。如果编译器不支持所要求的十进制位数， selected_real_kind函数将返回 -1 .