Question

编辑::我向GCC bugzilla报告了bug。现在已经修复了。

以下示例不使用gfortran 4.8.4进行编译：

PROGRAM test
  USE ISO_C_BINDING
  INTEGER(C_INT128_T) :: CINT128T
  INTEGER, PARAMETER :: I16B  = KIND(CINT128T)
  INTEGER(I16B) :: a, b
  a = 127
  b = 0
  b = IBSET(b,0)
  a = IBCLR(a,0)
  CALL MVBITS(a,0,3,b,0)
END PROGRAM test

这是我得到的：

$ gfortran test.f90
/tmp/cc2CEkwu.o: In function `MAIN__':
test.f90:(.text+0x89): undefined reference to `_gfortran_mvbits_i16'
collect2: error: ld returned 1 exit status

这里是如何编译gfortran的（即，它是Ubuntu 14.04附带的版本）：

$ gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-linux-gnu/4.8/lto-wrapper
Target: x86_64-linux-gnu
Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.8.4-2ubuntu1~14.04' --with-bugurl=file:///usr/share/doc/gcc-4.8/README.Bugs --enable-languages=c,c++,java,go,d,fortran,objc,obj-c++ --prefix=/usr --program-suffix=-4.8 --enable-shared --enable-linker-build-id --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.8 --libdir=/usr/lib --enable-nls --with-sysroot=/ --enable-clocale=gnu --enable-libstdcxx-debug --enable-libstdcxx-time=yes --enable-gnu-unique-object --disable-libmudflap --enable-plugin --with-system-zlib --disable-browser-plugin --enable-java-awt=gtk --enable-gtk-cairo --with-java-home=/usr/lib/jvm/java-1.5.0-gcj-4.8-amd64/jre --enable-java-home --with-jvm-root-dir=/usr/lib/jvm/java-1.5.0-gcj-4.8-amd64 --with-jvm-jar-dir=/usr/lib/jvm-exports/java-1.5.0-gcj-4.8-amd64 --with-arch-directory=amd64 --with-ecj-jar=/usr/share/java/eclipse-ecj.jar --enable-objc-gc --enable-multiarch --disable-werror --with-arch-32=i686 --with-abi=m64 --with-multilib-list=m32,m64,mx32 --with-tune=generic --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu
Thread model: posix
gcc version 4.8.4 (Ubuntu 4.8.4-2ubuntu1~14.04)

我一直在对128位整数（IBSET，IBCLR，BTEST，IBITS）进行其他位操作，它们都能正常工作。有什么想法吗？

Answer 1

运行时库没有该内在函数的16字节版本。你运气不好，得到一个不同的编译器，它可以做到（我不知道），或使用较小的整数。

如果你想做这样的话，你也可以在C中自己编写这个函数。

gfortran

1 个答案: