[Bug fortran/83725] New: [8 Regression] Another ICE:: in gfc_add_modify_loc, at fortran/trans.c:159

[dominiq at lps dot ens.fr]

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

            Bug ID: 83725
           Summary: [8 Regression] Another ICE:: in gfc_add_modify_loc, at
                    fortran/trans.c:159
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: dominiq at lps dot ens.fr
                CC: jb at gcc dot gnu.org
  Target Milestone: ---

Compiling the following variant of pr65381:

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(:)
        type(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
        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
end

gives the ICE

pr65381_red.f90:15:0:

     pure function fixedStringTable(this) result(fixed)

internal compiler error: in gfc_add_modify_loc, at fortran/trans.c:159

It compiles with gfortran 7.2.0 and trunk before r256284 and it is not fixed by
revision r256310.