2 ! Tests the fix for PR35740, where the trick of interchanging the descriptor
3 ! dimensions to implement TRANSPOSE did not work if it is an argument of
4 ! an elemental function - eg. CONJG. The fix forces a library call for such
5 ! cases. During the diagnosis of the PR, it was found that the scalarizer was
6 ! completely thrown if the argument of TRANSPOSE was a non-variable
7 ! expression; eg a + c below. This is also fixed by the library call.
9 ! Contributed by Dominik Muth <dominik.muth@gmx.de>
13 complex, dimension(2,2) :: a,b,c,d
20 b = conjg(transpose(b))
22 d = transpose(conjg(d))
23 if (any (b /= d)) call abort ()
26 if (any (d /= matmul (transpose(conjg(a)), a))) call abort ()
27 if (any (d /= matmul (conjg(transpose(a)), a))) call abort ()
30 b = conjg(transpose(a + c))
31 d = transpose(conjg(a + c))
32 if (any (b /= d)) call abort ()
35 if (any (d /= matmul (transpose(conjg(a + c)), a + c))) call abort ()
36 if (any (d /= matmul (conjg(transpose(a + c)), a + c))) call abort ()