24 lines
584 B
Fortran
24 lines
584 B
Fortran
! { 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
|