2 ! Make sure there is only one instance of a temporary variable here.
3 ! { dg-options "-fdump-tree-original" }
5 SUBROUTINE prtdata(ilen
)
7 character(len
=ilen
), allocatable
:: cline(:)
10 cline(1)(2:3) = cline(1)(1:2)
13 END SUBROUTINE prtdata
14 ! { dg-final { scan-tree-dump-not "__var_" "original" } }