2 ! PR 27662. Don't zero the first stride to indicate a temporary. It
6 real(kind=kind(1.0d0)), dimension (2, 2):: x, y, z;
12 z = matmul (x, transpose (test ()))
15 if (x (i, j) .ne. z (i, j)) call abort ()
21 function test () result (res)
22 real(kind=kind(1.0d0)), dimension(2,2) :: res