[Bug fortran/78239] [5/6/7 Regression] ICE in char_len_param_value, at fortran/decl.c:926, with -fimplicit-none

[dominiq at lps dot ens.fr]

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

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

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
             Status|UNCONFIRMED                 |NEW
      Known to work|                            |4.9.3
           Keywords|                            |ice-on-invalid-code
   Last reconfirmed|                            |2016-11-07
                 CC|                            |kargl at gcc dot gnu.org
     Ever confirmed|0                           |1
            Summary|ICE in                      |[5/6/7 Regression] ICE in
                   |char_len_param_value, at    |char_len_param_value, at
                   |fortran/decl.c:926, with    |fortran/decl.c:926, with
                   |-fimplicit-none             |-fimplicit-none
      Known to fail|                            |5.4.0, 6.2.0, 7.0

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
The changed occurred between revisions r229283 (2015-10-24) which gives the
error

 subroutine s(n)
              1
Error: Symbol 'n' at (1) has no IMPLICIT type

and r229293 (2015-10-25) which gives the ICE, likely r229287 or r229288 for
gcc-6 and r229553 or r229560 for gcc-5.

Note that using "implicit none" in the subroutine gives

pr78239_db.f90:3:13:

    character(n) :: c
             1
Error: Scalar INTEGER expression expected at (1)
pr78239_db.f90:1:14:

 subroutine s(n)
              1
Error: Symbol 'n' at (1) has no IMPLICIT type
pr78239_db.f90:4:4:

    c = 'c'
    1
Error: Symbol 'c' at (1) has no IMPLICIT type

without any ICE.