[Bug fortran/105243] New: ICE in next_char, at fortran/io.cc:160

["gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 105243
           Summary: ICE in next_char, at fortran/io.cc:160
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Affects versions down to at least r5 :


$ cat z1.f90
program p
   type t
      character(3) :: c = '(a)'
   end type
   class(t), parameter :: x = 1.
   print x%c
end


$ gfortran-12-20220410 -c z1.f90
f951: internal compiler error: Segmentation fault
0xcce66f crash_signal
        ../../gcc/toplev.cc:322
0x713d78 next_char
        ../../gcc/fortran/io.cc:160
0x713ef6 next_char
        ../../gcc/fortran/io.cc:214
0x713ef6 next_char_not_space
        ../../gcc/fortran/io.cc:208
0x713f2a format_lex
        ../../gcc/fortran/io.cc:236
0x714522 format_lex
        ../../gcc/fortran/io.cc:617
0x714522 check_format
        ../../gcc/fortran/io.cc:619
0x716ab7 check_format_string
        ../../gcc/fortran/io.cc:1338
0x716ab7 match_io
        ../../gcc/fortran/io.cc:4409
0x71a1ba gfc_match_print()
        ../../gcc/fortran/io.cc:4450
0x74aa31 match_word
        ../../gcc/fortran/parse.cc:67
0x750563 decode_statement
        ../../gcc/fortran/parse.cc:539
0x75099a next_free
        ../../gcc/fortran/parse.cc:1397
0x75099a next_statement
        ../../gcc/fortran/parse.cc:1629
0x751f2b parse_spec
        ../../gcc/fortran/parse.cc:4168
0x7550cc parse_progunit
        ../../gcc/fortran/parse.cc:6210
0x756791 gfc_parse_file()
        ../../gcc/fortran/parse.cc:6755
0x7a438f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.cc:216