[Bug fortran/104571] New: ICE in resolve_elemental_actual, at fortran/resolve.cc:2383

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

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

            Bug ID: 104571
           Summary: ICE in resolve_elemental_actual, at
                    fortran/resolve.cc:2383
           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 :
(gcc configured with --enable-checking=yes)


$ cat z1.f90
program p
   real :: x(3)
   call g(x)
contains
   elemental subroutine g(*)
   end
end


$ gfortran-12-20220213 -c z1.f90
z1.f90:5:25:

    5 |    elemental subroutine g(*)
      |                         1
Error: Alternate return specifier in elemental subroutine 'g' at (1) is not
allowed
z1.f90:3:12:

    3 |    call g(x)
      |            1
Error: Missing alternate return specifier in subroutine call at (1)
f951: internal compiler error: Segmentation fault
0xe7073f crash_signal
        ../../gcc/toplev.cc:322
0x79bd73 resolve_elemental_actual
        ../../gcc/fortran/resolve.cc:2383
0x7ab0bb resolve_call
        ../../gcc/fortran/resolve.cc:3805
0x7a8449 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.cc:12154
0x7aa977 resolve_codes
        ../../gcc/fortran/resolve.cc:17536
0x7aaa3e gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.cc:17571
0x792d64 resolve_all_program_units
        ../../gcc/fortran/parse.cc:6586
0x792d64 gfc_parse_file()
        ../../gcc/fortran/parse.cc:6842
0x7e102f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.cc:216