[Bug fortran/103287] New: [12 Regression] ICE in argument_rank_mismatch, at fortran/interface.c:2240

[gscfq--- via Gcc-bugs]

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

            Bug ID: 103287
           Summary: [12 Regression] ICE in argument_rank_mismatch, at
                    fortran/interface.c:2240
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

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


$ cat z1.f90
subroutine g
   call s([1])
end
subroutine h(x)
   integer, pointer :: x(..)
   call s(x)
end


$ gfortran-12-20211114 -c z1.f90
z1.f90:6:10:

    6 |    call s(x)
      |          1
Error: Assumed-rank argument requires an explicit interface at (1)
f951: internal compiler error: in argument_rank_mismatch, at
fortran/interface.c:2240
0x7e3746 argument_rank_mismatch
        ../../gcc/fortran/interface.c:2240
0x7e7325 compare_parameter
        ../../gcc/fortran/interface.c:2666
0x7e7325 gfc_compare_actual_formal(gfc_actual_arglist**, gfc_formal_arglist*,
int, int, bool, locus*)
        ../../gcc/fortran/interface.c:3200
0x94c266 check_externals_procedure
        ../../gcc/fortran/frontend-passes.c:5725
0x950f59 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        ../../gcc/fortran/frontend-passes.c:5333
0x9527bb gfc_check_externals0
        ../../gcc/fortran/frontend-passes.c:5844
0x953644 gfc_check_externals(gfc_namespace*)
        ../../gcc/fortran/frontend-passes.c:5866
0x83b732 gfc_parse_file()
        ../../gcc/fortran/parse.c:6856
0x8896bf gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216