3 ! Tests fix for PR82184
5 ! Contributed by Andrey Guskov <andrey.y.guskov@intel.com)
12 complex(4), allocatable
, save :: a(:, :)
13 complex(4), pointer, save :: b(:, :)
14 if (.not
. associated(b
)) then
17 a
= reshape ([cmplx(1, 1), cmplx(2, 2), cmplx(1, 2), cmplx(2, 1)], [2,2])
20 if (merge("PASSED", "FAILED", all (transpose (a
) .eq
. b
)) .eq
. "FAILED") STOP 1