https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82184
--- Comment #6 from paul.richard.thomas at gmail dot com <paul.richard.thomas at gmail dot com> --- Thanks Andrey. I'll get to it as soon as I can. Paul On 13 September 2017 at 21:12, andrey.y.guskov at intel dot com <gcc-bugzi...@gcc.gnu.org> wrote: > https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82184 > > --- Comment #5 from Andrey Guskov <andrey.y.guskov at intel dot 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(1, 1) = cmplx(12, 34) > a(2, 2) = cmplx(56, 78) > else > b = transpose(a) > print *, merge("PASSED", "FAILED", a(1, 1) .eq. b(1, 1)) > end if > > end subroutine s > > end program r187 > > > # pre-r251949 > $ gfortran -Ofast r187.f90 -o r187 && ./r187 > PASSED > > # post-r251949 > $ gfortran -Ofast r187.f90 -o r187 && ./r187 > FAILED > > -- > You are receiving this mail because: > You are on the CC list for the bug.