[Bug fortran/65381] New: ICE during array result, assignment

[Bug fortran/65381] New: ICE during array result, assignment

[jwmwalrus at gmail dot com]

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)

[Bug fortran/65381] ICE during array result, assignment

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65381

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|---                         |DUPLICATE

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Duplicate of pr54070.

*** This bug has been marked as a duplicate of bug 54070 ***

[Bug fortran/65381] [9/10/11/12 Regression] ICE during array result, assignment

[jakub at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65381

Jakub Jelinek <jakub at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|8.5                         |9.4

--- Comment #9 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
GCC 8 branch is being closed.

[Bug fortran/65381] [9/10/11/12 Regression] ICE during array result, assignment

[rguenth at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65381

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|9.4                         |9.5

--- Comment #10 from Richard Biener <rguenth at gcc dot gnu.org> ---
GCC 9.4 is being released, retargeting bugs to GCC 9.5.

[Bug fortran/65381] [10/11/12/13 Regression] ICE during array result, assignment

[rguenth at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65381

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|9.5                         |10.4

--- Comment #11 from Richard Biener <rguenth at gcc dot gnu.org> ---
GCC 9 branch is being closed

[Bug fortran/65381] [10/11/12/13 Regression] ICE during array result, assignment

[jakub at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65381

Jakub Jelinek <jakub at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|10.4                        |10.5

--- Comment #12 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
GCC 10.4 is being released, retargeting bugs to GCC 10.5.

[Bug fortran/65381] [10/11/12/13/14 Regression] ICE during array result, assignment

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65381

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org
             Status|REOPENED                    |RESOLVED
         Resolution|---                         |FIXED

--- Comment #13 from kargl at gcc dot gnu.org ---
All of the codes in this bug report compile with 

GNU Fortran (FreeBSD Ports Collection) 12.2.0
GNU Fortran (GCC) 13.0.1 20230408 (experimental)