blob: c6390896c17532083ef0453ce9787d451949a5c0 (
plain)
1
2
3
4
5
6
7
8
|
! { dg-do compile }
program main
real, dimension(4,3) :: a
real, dimension(2) :: b
a = 21.
b = product(a,dim=1) ! { dg-error "Different shape" }
b = sum(a,dim=2) ! { dg-error "Different shape" }
end program main
|