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.