[Bug fortran/91686] New: ICE in gimplify:2554

[urbanjost at comcast dot net]

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

            Bug ID: 91686
           Summary: ICE in gimplify:2554
           Product: gcc
           Version: 7.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: urbanjost at comcast dot net
  Target Milestone: ---

program shuf
   implicit none
   character(len=:),allocatable :: pageout(:)
   integer                      :: i
      pageout=[character(len=20) :: 'a','bbbbbbb','ccccc']
      pageout=pageout([3,2,1])
      write(*,'(a)') (trim(pageout(i)),i=1,size(pageout))
   contains
   end program shuf

bug_shuf.f90:6:0:

    pageout=pageout([3,2,1])

internal compiler error: in gimplify_var_or_parm_decl, at gimplify.c:2584