gcc/testsuite/gfortran.dg/array_memcpy_1.f90

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