gcc/testsuite/gfortran.dg/actual_array_substr_3.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-fdump-tree-original" }
   3 ! PR 43072 - no temporary needed because the substring
   4 ! is of equal length to the string.
   5 subroutine foo2
   6   implicit none
   7   external foo
   8   character(len=20) :: str(2) = '1234567890'
   9   call foo(str(:)(1:20))
  10 end
  11 ! { dg-final { scan-tree-dump-not "memmove" "original" } }