| ! { 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 |