Nvfortran ICE with spread+reshape

Hello,

the following reproducer gives an internal compiler error with nvfortran 23.3:

subroutine er(data,n)
implicit none

real, dimension(n), intent(inout) :: data
integer n,i

integer, dimension(1:3) :: memdims, ksdims

do i=1,3
print*,spread(reshape(data(1:n), memdims), i, ksdims(i))
enddo

end subroutine er

Error:

$ nvfortran -c bug4.f90
NVFORTRAN-S-0000-Internal compiler error. mk_id: invalid symbol table index 0 (bug4.f90: 11)
NVFORTRAN-S-0000-Internal compiler error. lower_sptr: bad sptr 0 (bug4.f90: 14)
0 inform, 0 warnings, 2 severes, 0 fatal for er

Cheers,
John

Thanks John, we appreciate the report.

I’ve filed TPR #33446 and sent it to engineering for review.

-Mat