[Bug fortran/69395] New: ICE on declaring array with more than 7 dimensions+codimensions

[gerhard.steinmetz.fortran@t-online.de]

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

            Bug ID: 69395
           Summary: ICE on declaring array with more than 7
                    dimensions+codimensions
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

These variants with sum of dimensions and codimensions
greater than 7 (actual limit) :


$ cat z1.f90
program p
   real, dimension(2,2,2,2), codimension[2,2,2,*] :: z4a
   real, dimension(2,2,2,2) :: z4b[2,2,2,*]
   real, codimension[2,2,2,*] :: z4c(2,2,2,2)
   real :: z4x
   dimension :: z4x(2,2,2,2)
   codimension :: z4x[2,2,2,*]
end


$ cat z3.f90
program p
   real, dimension(2), codimension[2,2,2,2,2,2,*] :: z1a
   real, dimension(2,2), codimension[2,2,2,2,2,*] :: z2a
   real, dimension(2,2,2), codimension[2,2,2,2,*] :: z3a
   real, dimension(2,2,2,2), codimension[2,2,2,*] :: z4a
   real, dimension(2,2,2,2,2), codimension[2,2,*] :: z5a
   real, dimension(2,2,2,2,2,2), codimension[2,*] :: z6a
   real, dimension(2,2,2,2,2,2,2), codimension[*] :: z7a
   !...
end


yield (with 5.3.1 and 6.0.0) :

$ gfortran -fcoarray=single z1.f90
f951: internal compiler error: free_expr0(): Bad expr type