[Bug fortran/103174] New: ICE in gfc_match_varspec, at fortran/primary.c:2154

[Bug fortran/103174] New: ICE in gfc_match_varspec, at fortran/primary.c:2154

[gscfq@t-online.de]

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

            Bug ID: 103174
           Summary: ICE in gfc_match_varspec, at fortran/primary.c:2154
           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: ---

Started with r6 (valid, in contrast to pr95710) :
(line f = 'abc' is not neccessary to create an ICE)


$ cat z1.f90
module m
   interface
      module function f(x)
         integer, intent(in) :: x
         class(*), allocatable :: f
      end
   end interface
end
submodule(m) m2
contains
   module function f(x)
      integer, intent(in) :: x
      class(*), allocatable :: f
      f = 'abc'
   end
end


$ gfortran-12-20211107 -c z1.f90
f951: internal compiler error: Segmentation fault
0xd4f7bf crash_signal
        ../../gcc/toplev.c:322
0x7fc775 gfc_match_varspec(gfc_expr*, int, bool, bool)
        ../../gcc/fortran/primary.c:2154
0x7fd502 match_variable
        ../../gcc/fortran/primary.c:4141
0x7c6726 gfc_match(char const*, ...)
        ../../gcc/fortran/match.c:1137
0x7c7fed gfc_match_assignment()
        ../../gcc/fortran/match.c:1315
0x7f1210 match_word
        ../../gcc/fortran/parse.c:67
0x7f1210 decode_statement
        ../../gcc/fortran/parse.c:363
0x7f2d0a next_free
        ../../gcc/fortran/parse.c:1388
0x7f2d0a next_statement
        ../../gcc/fortran/parse.c:1620
0x7f442b parse_spec
        ../../gcc/fortran/parse.c:4159
0x7f779c parse_progunit
        ../../gcc/fortran/parse.c:6170
0x7f7b81 parse_contained
        ../../gcc/fortran/parse.c:6071
0x7f8597 parse_module
        ../../gcc/fortran/parse.c:6444
0x7f88c7 gfc_parse_file()
        ../../gcc/fortran/parse.c:6751
0x845d3f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216

[Bug fortran/103174] ICE in gfc_match_varspec, at fortran/primary.c:2154

[gscfq@t-online.de]

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

--- Comment #1 from G. Steinmetz <gscfq@t-online.de> ---

spartan :

module m
   interface
      module function f()
         class(*), allocatable :: f
      end
   end interface
end
submodule(m) m2
contains
   module function f()
      class(*), allocatable :: f
   end
end

[Bug fortran/103174] ICE in gfc_match_varspec, at fortran/primary.c:2154 since r6-1958-g4668d6f9c00d4767

[marxin at gcc dot gnu.org]

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

Martin Liška <marxin at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
                 CC|                            |marxin at gcc dot gnu.org,
                   |                            |pault at gcc dot gnu.org
   Last reconfirmed|                            |2021-11-11
     Ever confirmed|0                           |1
            Summary|ICE in gfc_match_varspec,   |ICE in gfc_match_varspec,
                   |at fortran/primary.c:2154   |at fortran/primary.c:2154
                   |                            |since
                   |                            |r6-1958-g4668d6f9c00d4767

--- Comment #2 from Martin Liška <marxin at gcc dot gnu.org> ---
Started with r6-1958-g4668d6f9c00d4767.