gcc/testsuite/gfortran.dg/dependency_47.f90

   1 ! { dg-do compile }
   2 ! Make sure there is only one instance of a temporary variable here.
   3 ! { dg-options "-fdump-tree-original" }
   4
   5 SUBROUTINE prtdata(ilen)
   6   INTEGER :: ilen
   7   character(len=ilen), allocatable :: cline(:)
   8   allocate(cline(2))
   9   cline(1) = 'a'
  10   cline(1)(2:3) = cline(1)(1:2)
  11   cline(2) = cline(1)
  12   print *,c
  13 END SUBROUTINE prtdata
  14 ! { dg-final { scan-tree-dump-not "__var_" "original" } }