| ! { 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") STOP 1 |
| end if |
| end subroutine s |
| end program r187 |
