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. 5program 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 13end program main 14! { dg-final { scan-tree-dump-times "__var_1" 4 "original" } } 15