https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65381
Bug ID: 65381
Summary: ICE during array result, assignment
Product: gcc
Version: 5.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: jwmwalrus at gmail dot com
I get Internal Compiler Error with the following code:
module stringtable_mod
implicit none
private
save
type, public :: StringList
character(:), allocatable :: chars
end type
type, public :: StringTable
type(StringList), allocatable :: list(:)
end type
contains
pure function fixedStringTable(this) result(fixed)
class(StringTable), intent(IN) :: this(:)
character(LEN_MAX(this)) :: fixed(getTableSize(this))
integer :: i, j, k
k = 0
do i = 1, SIZE(this)
if (.NOT. ALLOCATED(this(i)%list)) cycle
do j = 1, SIZE(this(i)%list)
k = k + 1
fixed(k) = this(i)%list(j)%chars
enddo
enddo
end function
pure function joinStrings(this) result(joined)
character(:), allocatable :: joined
type(StringTable), intent(IN) :: this(:)
integer :: ln, sz
character(:), allocatable :: strings(:)
ln = LEN_MAX(this)
sz = getTableSize(this)
allocate (character(ln) :: strings(sz))
strings(:) = fixedStringTable(this)
joined=''
end function
pure function LEN_MAX(this) result(stringlen)
integer :: stringlen
type(StringTable), intent(IN) :: this(:)
integer :: i, j
stringlen = 0
end function
pure function getTableSize(this) result(sz)
integer :: sz
type(StringTable), intent(IN) :: this(:)
integer :: i
sz = 0
end function
end module stringtable_mod
The output is:
$ gfortran-5.0 -c stringtable.f90
stringtable.f90:38:0:
strings(:) = fixedStringTable(this)
^
internal compiler error: in gimplify_var_or_parm_decl, at gimplify.c:1797
Please submit a full bug report,
with preprocessed source if appropriate.
See <file:///usr/share/doc/gcc-snapshot/README.Bugs> for instructions.
The compiler and system information is:
$ lsb_release -rd && gfortran-5.0 -v
Description: Debian GNU/Linux 8.0 (jessie)
Release: 8.0
Using built-in specs.
COLLECT_GCC=gfortran-5.0
COLLECT_LTO_WRAPPER=/usr/lib/gcc-snapshot/libexec/gcc/x86_64-linux-gnu/5.0.0/lto-wrapper
Target: x86_64-linux-gnu
Configured with: ../src/configure -v --with-pkgversion='Debian 20150225-1'
--with-bugurl=file:///usr/share/doc/gcc-snapshot/README.Bugs
--enable-languages=c,ada,c++,java,go,fortran,objc,obj-c++
--prefix=/usr/lib/gcc-snapshot --enable-shared --enable-linker-build-id
--disable-nls --with-sysroot=/ --enable-clocale=gnu --enable-libstdcxx-debug
--enable-libstdcxx-time=yes --with-default-libstdcxx-abi=c++98
--enable-gnu-unique-object --disable-vtable-verify --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-5-snap-amd64/jre
--enable-java-home --with-jvm-root-dir=/usr/lib/jvm/java-1.5.0-gcj-5-snap-amd64
--with-jvm-jar-dir=/usr/lib/jvm-exports/java-1.5.0-gcj-5-snap-amd64
--with-arch-directory=amd64 --with-ecj-jar=/usr/share/java/eclipse-ecj.jar
--enable-objc-gc --enable-multiarch --with-arch-32=i586 --with-abi=m64
--with-multilib-list=m32,m64,mx32 --enable-multilib --with-tune=generic
--disable-werror --enable-checking=yes --build=x86_64-linux-gnu
--host=x86_64-linux-gnu --target=x86_64-linux-gnu
Thread model: posix
gcc version 5.0.0 20150225 (experimental) [trunk revision 220970] (Debian
20150225-1)
