mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
11 lines
349 B
Fortran
11 lines
349 B
Fortran
! 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
|