gcc/testsuite/gfortran.dg/pr56015.f90

   1 ! PR middle-end/56015
   2 ! { dg-do run }
   3 ! { dg-options "-Ofast -fno-inline" }
   4
   5 program 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)
  11 contains
  12   subroutine foo (p)
  13     complex*16 p(10)
  14     if (any (p .ne. (-0.2d0, 0.1d0))) call abort
  15   end subroutine
  16 end program pr56015