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