1! { dg-do compile }
2! { dg-options "-O2 -fdump-tree-original" }
3subroutine testi(a,b)
4  integer :: a(20)
5  integer :: b(20)
6  a = b;
7end subroutine
8
9subroutine testr(a,b)
10  real :: a(20)
11  real :: b(20)
12  a = b;
13end subroutine
14
15subroutine testz(a,b)
16  complex :: a(20)
17  complex :: b(20)
18  a = b;
19end subroutine
20
21subroutine testl(a,b)
22  logical :: a(20)
23  logical :: b(20)
24  a = b;
25end subroutine
26
27! { dg-final { scan-tree-dump-times "memcpy" 4 "original" } }
28! { dg-final { cleanup-tree-dump "original" } }
29