subroutine subr (m, n, a, b, c, d, p) implicit none integer m, n real a(m,n), b(m,n), c(n,n), d(m,n) integer p(n) d = a(:,p) - matmul(b, c) end subroutine
implicit none integer i real a(3,2), b(3,2), c(2,2), d(3,2) integer p(2) a = reshape ((/(i, i = 1, 6)/), (/3, 2/)) b = 1 c = 2 p = 2 call subr (3, 2, a, b, c, d, p) if (any (d .ne. reshape ((/(mod (i + 2, 3), i = 1, 6)/), (/3, 2/)))) call abort end ICEs because a loop bound (loop->to[0]) hasn't been set. -- Summary: ICE on array section with vector subscript Product: gcc Version: 4.4.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: jakub at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37749