This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
ICE on valid(?) with class arrays
- From: Andrew Benson <abenson at its dot caltech dot edu>
- To: gfortran <fortran at gcc dot gnu dot org>
- Date: Tue, 03 Jan 2012 20:34:46 -0800
- Subject: ICE on valid(?) with class arrays
I'm starting to experiment with using class arrays with gfortran 4.7.0 and
think I've found an ICE related to class arrays.
I've created a reduce test case which I think (but don't claim to be 100%
sure) is valid code:
module test
private
type :: componentB
end type componentB
type :: treeNode
class(componentB), allocatable, dimension(:) :: componentB
end type treeNode
contains
function BGet(self)
implicit none
class(componentB), pointer :: BGet
class(treeNode), intent(in) :: self
select type (self)
class is (treeNode)
BGet => self%componentB(1)
end select
return
end function BGet
end module test
$ gfortran -v
Using built-in specs.
COLLECT_GCC=/opt/gcc-4.7/bin/gfortran
COLLECT_LTO_WRAPPER=/opt/gcc-4.7/libexec/gcc/x86_64-unknown-linux-
gnu/4.7.0/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: ../gcc-4.7/configure --prefix=/opt/gcc-4.7 --enable-
languages=c,c++,fortran --disable-multilib
Thread model: posix
gcc version 4.7.0 20120103 (experimental) (GCC)
$ gfortran -c test.F90 -o test.o
test.F90: In function âbgetâ:
test.F90:19:0: internal compiler error: in gfc_conv_descriptor_offset, at
fortran/trans-array.c:210
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
If I remove the "allocatable" I instead get:
$ gfortran -c test.F90 -o test.o
f951: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
If I remove the "dimension(:)" and change the pointer association to:
BGet => self%componentB
then it compiles successfully.
I don't see anything in bugzilla which seems related.
-Andrew
--
* Andrew Benson: http://www.tapir.caltech.edu/~abenson/contact.html
* Galacticus: http://sites.google.com/site/galacticusmodel