| ! { dg-do compile } | |
| program main | |
| real :: av(2), bv(4) | |
| real :: a(2,2) | |
| logical :: lo(3,2) | |
| print *,dot_product(av, bv) ! { dg-error "different shape" } | |
| print *,pack(a, lo) ! { dg-error "different shape" } | |
| print *,merge(av, bv, lo(1,:)) ! { dg-error "different shape" } | |
| print *,matmul(bv,a) ! { dg-error "different shape" } | |
| end program main |