1! PR middle-end/56015 2! { dg-do run } 3! { dg-options "-Ofast -fno-inline" } 4 5program pr56015 6 implicit none 7 complex*16 p(10) 8 p(:) = (0.1d0, 0.2d0) 9 p(:) = (0.0d0, 1.0d0) * p(:) 10 call foo (p) 11contains 12 subroutine foo (p) 13 complex*16 p(10) 14 if (any (p .ne. (-0.2d0, 0.1d0))) call abort 15 end subroutine 16end program pr56015 17