3

これを gfortran でコンパイルすると、4 つの「ok」が生成されます。

  TYPE TypeThree
     INTEGER i
     REAL*8 a
     REAL*8, ALLOCATABLE :: aa(:)
  END TYPE TypeThree

  TYPE TypeTwo 
     TYPE(TypeThree), ALLOCATABLE :: b
  END TYPE TypeTwo

  TYPE TypeOne
     TYPE (TypeTwo), ALLOCATABLE :: c(:)
  END TYPE TypeOne

  TYPE(TypeOne), ALLOCATABLE :: d(:)

  allocate(d(2))
  print *, 'ok'
  deallocate(d)
  print *, 'ok'
  allocate(d(2))
  print *, 'ok'
  allocate(d(1)%c(2))
  print *, 'ok'
  deallocate(d(1)%c)
  print *, 'ok'

  end

割り当てを解除しようとすると、セグメンテーション違反が発生しますd(1)%c。を使用ifortすると、問題が解決します。INTEGER i下を削除するとtypeThree、この問題が解決します。コンパイラに割り当て解除 (コメント アウトdeallocate(d(1)%c)) を実行させると、問題が解決します。任意のアイデアをいただければ幸いです。使用する

ulimit -s unlimited 

役に立ちません。

また:

$ gfortran -v

Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-linux-gnu/4.6/lto-wrapper
Target: x86_64-linux-gnu
Configured with: ../src/configure -v --with-pkgversion='Ubuntu/Linaro 4.6.3-1ubuntu5' --with-bugurl=file:///usr/share/doc/gcc-4.6/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --program-suffix=-4.6 --enable-shared --enable-linker-build-id --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.6 --libdir=/usr/lib --enable-nls --with-sysroot=/ --enable-clocale=gnu --enable-libstdcxx-debug --enable-libstdcxx-time=yes --enable-gnu-unique-object --enable-plugin --enable-objc-gc --disable-werror --with-arch-32=i686 --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.6.3 (Ubuntu/Linaro 4.6.3-1ubuntu5) 
4

1 に答える 1

1

これはgfortran のバグです (gfortran 4.6 が含まれるまで)。コンパイラを 4.7 以降のバージョンにアップグレードすると、問題は解消されます。

于 2013-08-28T08:44:34.383 に答える