gcc/testsuite/gfortran.dg/dependency_49.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original" }
   3 ! PR fortran/71902 - make sure that component references are followed
   4 ! for dependency analysis.
   5 program main
   6   type foo
   7      character(len=:), allocatable :: x
   8   end type foo
   9   type(foo) :: a
  10   a%x = 'asdf'
  11   a%x = a%x(2:3)
  12   print *,a%x
  13 end program main
  14 ! The temporary var appears three times: declaration, copy-in and copy-out
  15 ! { dg-final { scan-tree-dump-times "__var_1" 3 "original" } }