[Bug fortran/77612] New: ICE on invalid character len in contained procedure

[spam.brian.taylor at gmail dot com]

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

            Bug ID: 77612
           Summary: ICE on invalid character len in contained procedure
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: spam.brian.taylor at gmail dot com
  Target Milestone: ---

The following code causes gfortran 6.2.0 to ICE:

user@host $ cat bad_len.f90 
program bad_len
  implicit none

contains

  subroutine sub()
    character(len = make_gfortran_ICE) :: line
  end subroutine

end program

user@host $ gfortran bad_len.f90
bad_len.f90:6:0:

   subroutine sub()

internal compiler error: in gfc_typenode_for_spec, at
fortran/trans-types.c:1064

bad_len.f90:6:0: internal compiler error: Abort trap: 6
gfortran: internal compiler error: Abort trap: 6 (program f951)
Please submit a full bug report,
with preprocessed source if appropriate.

user@host $ gfortran --version
GNU Fortran (Homebrew gcc 6.2.0 --without-multilib) 6.2.0
Copyright (C) 2016 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

If "implicit none" is commented out, gfortran stops with a reasonable error
message:

bad_len.f90:7:19:

     character(len = make_gfortran_ICE) :: line
                   1
Error: Variable 'make_gfortran_ice' cannot appear in the expression at (1)