! { dg-do compile } | |
! { dg-additional-options "-O3" } | |
! { dg-additional-options "-march=armv8.3-a" { target aarch64-*-* } } | |
subroutine sub_c | |
complex, dimension(2,3) :: at | |
complex, dimension(2,4) :: b | |
complex, dimension(3,4) :: c | |
data b / (41., 43.), 0, 0, 0, 0, 0, 0, 0/ | |
c = matmul(transpose(at), b) | |
if (any (c /= cres)) stop | |
end subroutine sub_c |