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