+
−! { dg-do run }
+
−!
+
−! Tests fix for PR82184
+
−!
+
−! Contributed by Andrey Guskov  <andrey.y.guskov@intel.com)
+
−!
+
−program r187
+
−  call s()
+
−  call s()
+
−contains
+
−  subroutine s()
+
−    complex(4), allocatable, save :: a(:, :)
+
−    complex(4), pointer,     save :: b(:, :)
+
−    if (.not. associated(b)) then
+
−      allocate(a(2, 2))
+
−      allocate(b(2, 2))
+
−      a = reshape ([cmplx(1, 1), cmplx(2, 2), cmplx(1, 2), cmplx(2, 1)], [2,2])
+
−    else
+
−      b = transpose(a)
+
−      if (merge("PASSED", "FAILED", all (transpose (a) .eq. b)) .eq. "FAILED") call abort
+
−    end if
+
−  end subroutine s
+
−end program r187