[Bug fortran/93522] New: f951: internal compiler error: in gfc_release_symbol, at fortran/symbol.c:3121

[gsocshubham at gmail dot com]

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

            Bug ID: 93522
           Summary: f951: internal compiler error: in gfc_release_symbol,
                    at fortran/symbol.c:3121
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gsocshubham at gmail dot com
  Target Milestone: ---

Testcase run on godbolt compiler x86-64 gfortran (trunk) - 

-----------------------Testcase--------------------------------

program rank_new
    implicit none
    integer :: some_var_assumed
    integer, DIMENSION(3,2,1) :: array
    PRINT *, RANK(array)
   call CALL_ME(array)
   contains
!No error expected
  subroutine CALL_ME23(x)
                implicit none
                integer:: x(..), a=10,b=20
                integer, dimension(10) :: arr = (/1,2,3,4,5/)
                select rank(arr(1:3))
                RANK(1)
                        print *, "1"
                 rank(2)
                        print *, "2"
                end select
        end subroutine
end program

------------------------Output (ICE)----------------------------------------

./example.f90:12:45:


   12 |                 integer, dimension(10) :: arr = (/1,2,3,4,5/)

      |                                             1

Error: Different shape for array assignment at (1) on dimension 1 (10 and 5)

f951: internal compiler error: in gfc_release_symbol, at fortran/symbol.c:3121

Please submit a full bug report,

with preprocessed source if appropriate.

See <https://gcc.gnu.org/bugs/> for instructions.