H A D | reshape_7.f90 | 5 integer, parameter :: sh(2) = [2, 3] local in subroutine:p0 7 & a(2,2) = reshape([1, 2, 3, 4], sh) ! { dg-error "Different shape" } 13 integer, parameter :: sh(2) = [2, 1] local in subroutine:p1 15 & a(2,2) = reshape([1, 2, 3, 4], sh) ! { dg-error "Different shape" }
|