[Bug fortran/103172] ICE in gfc_check_init_expr, at fortran/expr.c:3014

[wileamyp at outlook dot com via Gcc-bugs]

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

--- Comment #2 from Wileam Yonatan Phan <wileamyp at outlook dot com> ---
Comment on attachment 51758
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=51758
Source code for minimal reproducer

>function assumed_rank_crash ( arr ) result( res )
>  implicit none
>
>  ! Arguments
>  real, intent(in) :: arr(..)
>  integer :: shparr = SHAPE(arr)
>  real :: res(shparr)
>
>  return
>end function assumed_rank_crash

Here's a condensed version that still reproduces the ICE.

function assumed_rank_crash ( arr )
  real :: arr(..)
  integer :: shparr = SHAPE(arr)
end function assumed_rank_crash