! { dg-do compile } | |
! | |
! PR fortran/56849 | |
! | |
integer :: x(2,2),y(4) | |
y = reshape([1,2,3,4],[4]) | |
x(:,1:1) = reshape(y(::2), [1,2], order=[1,2]) ! { dg-error "Different shape for array assignment at .1. on dimension 1 .2 and 1." } | |
print *, y | |
print *, x(:,1) | |
end |