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

["gscfq at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |gscfq@t-online.de

--- Comment #3 from G. Steinmetz <gscfq@t-online.de> ---
The limit (sum of dimensions and codimensions) was recently
lifted from N=7 to N=15, but unfortunately the (N+1)-problem
remains. Adding 8 dims to testcases above, updated backtrace :


$ cat zz1.f90
program p
   real, dimension(1,2,1,2,1,2,1,2), codimension[1,2,1,2,1,2,1,*] :: z
end


$ gfortran-8-20180311 -c zz1.f90 -fcoarray=single
f951: internal compiler error: free_expr0(): Bad expr type
0x6a68ff gfc_internal_error(char const*, ...)
        ../../gcc/fortran/error.c:1358
0x6a76fb free_expr0
        ../../gcc/fortran/expr.c:499
0x6a775d gfc_free_expr(gfc_expr*)
        ../../gcc/fortran/expr.c:520
0x678ff9 gfc_free_array_spec(gfc_array_spec*)
        ../../gcc/fortran/array.c:329
0x699f1e gfc_match_data_decl()
        ../../gcc/fortran/decl.c:5834
0x6f5bb9 match_word_omp_simd
        ../../gcc/fortran/parse.c:93
0x6f92ae match_word
        ../../gcc/fortran/parse.c:376
0x6f92ae decode_statement
        ../../gcc/fortran/parse.c:376
0x6fb1d4 next_free
        ../../gcc/fortran/parse.c:1230
0x6fb1d4 next_statement
        ../../gcc/fortran/parse.c:1462
0x6fcfec parse_spec
        ../../gcc/fortran/parse.c:3670
0x6fefb3 parse_progunit
        ../../gcc/fortran/parse.c:5667
0x700594 gfc_parse_file()
        ../../gcc/fortran/parse.c:6207
0x74735f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204