gcc/testsuite/gfortran.dg/pr57393-2.f90

   1 ! PR middle-end/57393
   2 ! { dg-do compile }
   3 ! { dg-options "-g -O2" }
   4
   5 SUBROUTINE pr57393 ( a1, a2, a3, a4, a5, a6, a7 )
   6   COMPLEX(kind=8), DIMENSION(:), INTENT(IN) :: a1
   7   INTEGER, DIMENSION(:), INTENT(IN) :: a2, a3, a5, a6
   8   COMPLEX(kind=8), DIMENSION(:), INTENT(INOUT) :: a4
   9   a4(a6(1)+1:a6(1)+a5(1))=a1(a3(1)+1:a3(1)+a2(1))
  10 END SUBROUTINE pr57393