[Bug fortran/87923] New: ICE in gfc_widechar_to_char, at fortran/scanner.c:198

[gscfq@t-online.de]

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

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

With option -fdec and versions 7 to 9 :


$ cat z1.f90
program p
   open (1, carriagecontrol=char(1000,4))
   open (2, share=char(1000,4))
end


$ gfortran-9-20181104 -c z1.f90 -fdec
f951: internal compiler error: in gfc_widechar_to_char, at
fortran/scanner.c:198
0x694556 gfc_widechar_to_char(unsigned int const*, int)
        ../../gcc/fortran/scanner.c:198
0x638784 compare_to_allowed_values
        ../../gcc/fortran/io.c:2091
0x63dcd0 gfc_match_open()
        ../../gcc/fortran/io.c:2276
0x66a3c1 match_word
        ../../gcc/fortran/parse.c:65
0x66e335 decode_statement
        ../../gcc/fortran/parse.c:531
0x66e72a next_free
        ../../gcc/fortran/parse.c:1234
0x66e72a next_statement
        ../../gcc/fortran/parse.c:1466
0x670a94 parse_spec
        ../../gcc/fortran/parse.c:3674
0x672807 parse_progunit
        ../../gcc/fortran/parse.c:5671
0x673e89 gfc_parse_file()
        ../../gcc/fortran/parse.c:6211
0x6bc03f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204