2 ! Tests the fix for PR32962, in which the result of TRANSPOSE, when
3 ! an actual argument of an elemental intrinsic would receive the
6 ! Contributed by Wirawan Purwanto <wirawan0@gmail.com>
8 real(kind=8), allocatable :: b(:,:)
9 real(kind=8) :: a(2,2), c(2,2)
18 if (any (c .ne. b)) call abort