[Bug fortran/88205] New: ICE in gfc_wide_strncasecmp, at fortran/scanner.c:249

[gs...@t-online.de]

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

            Bug ID: 88205
           Summary: ICE in gfc_wide_strncasecmp, at fortran/scanner.c:249
           Product: gcc
           Version: 9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

With a non-scalar-default-char-expr, down to at least gcc-5 :


$ cat z1.f90
subroutine s
   real, parameter :: status = 0
   open (newunit=n, status=status)
end


$ cat z2.f90
subroutine s
   complex, parameter :: status = 0
   open (newunit=n, status=status)
end


$ cat z3.f90
program p
  logical, parameter :: status = .false.
  open (newunit=a, status=status)
end


$ gfortran-9-20181125 -c z1.f90
f951: internal compiler error: Segmentation fault
0xb2bcff crash_signal
        ../../gcc/toplev.c:326
0x6959fb gfc_wide_strncasecmp(unsigned int const*, char const*, unsigned long)
        ../../gcc/fortran/scanner.c:249
0x63eb4b gfc_match_open()
        ../../gcc/fortran/io.c:2165
0x66b341 match_word
        ../../gcc/fortran/parse.c:65
0x66f2b5 decode_statement
        ../../gcc/fortran/parse.c:531
0x66f6aa next_free
        ../../gcc/fortran/parse.c:1234
0x66f6aa next_statement
        ../../gcc/fortran/parse.c:1466
0x670cbb parse_spec
        ../../gcc/fortran/parse.c:3858
0x673787 parse_progunit
        ../../gcc/fortran/parse.c:5671
0x6751bc gfc_parse_file()
        ../../gcc/fortran/parse.c:6218
0x6bdaff gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204