[Bug fortran/103715] New: [12 Regression] ICE in gfc_find_gsymbol, at fortran/symbol.c:4301

[gscfq@t-online.de]

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

            Bug ID: 103715
           Summary: [12 Regression] ICE in gfc_find_gsymbol, at
                    fortran/symbol.c:4301
           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: ---

Changed between 20210905 and 20210919 :
(gcc configured with --enable-checking=yes)


$ cat z1.f90
program p
   select type (y => g())
   end select
   call g()
end


$ gfortran-12-20211212 -c z1.f90 -g -fcoarray=lib
z1.f90:2:25:

    2 |    select type (y => g())
      |                         1
Error: Selector shall be polymorphic in SELECT TYPE statement at (1)
z1.f90:4:11:

    2 |    select type (y => g())
      |                     2
    3 |    end select
    4 |    call g()
      |           1
Error: Global name 'g' at (1) is already being used as a FUNCTION at (2)
f951: internal compiler error: Segmentation fault
0xf12d1f crash_signal
        ../../gcc/toplev.c:322
0x879ee4 gfc_find_gsymbol(gfc_gsymbol*, char const*)
        ../../gcc/fortran/symbol.c:4301
0x950bd1 check_externals_procedure
        ../../gcc/fortran/frontend-passes.c:5720
0x953885 gfc_expr_walker(gfc_expr**, int (*)(gfc_expr**, int*, void*), void*)
        ../../gcc/fortran/frontend-passes.c:5227
0x955a09 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        ../../gcc/fortran/frontend-passes.c:5666
0x95716b gfc_check_externals0
        ../../gcc/fortran/frontend-passes.c:5848
0x958044 gfc_check_externals(gfc_namespace*)
        ../../gcc/fortran/frontend-passes.c:5870
0x83fa02 gfc_parse_file()
        ../../gcc/fortran/parse.c:6869
0x88db0f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216