http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56015
--- Comment #5 from Takeshi Nishimatsu <t_nissie at yahoo dot co.jp> 2013-01-17
11:58:24 UTC ---
(In reply to comment #3)
> Created attachment 29189 [details]
> gcc48-pr56015.patch
>
> Untested fix.
Thank you for your fix.
I add one more test multiplying -i.
program pr56015
implicit none
complex*16 m(10),p(10)
m(:) = (0.3d0, 0.4d0)
m(:) = (0.0d0,-1.0d0) * m(:)
call bar (m)
p(:) = (0.1d0, 0.2d0)
p(:) = (0.0d0, 1.0d0) * p(:)
call foo (p)
contains
subroutine bar (m)
complex*16 m(10)
if (any (m .ne. ( 0.4d0,-0.3d0))) call abort
end subroutine
subroutine foo (p)
complex*16 p(10)
if (any (p .ne. (-0.2d0, 0.1d0))) call abort
end subroutine
end program pr56015
