1! { dg-do run }
2! { dg-options "-Warray-temporaries" }
3! PR 56867 - substrings were not checked for dependency.
4program main
5  character(len=4) :: a
6  character(len=4) :: c(3)
7  c(1) = 'abcd'
8  c(2) = '1234'
9  c(3) = 'wxyz'
10  c(:)(1:2) = c(2)(2:3)   ! { dg-warning "array temporary" }
11  if (c(3) .ne. '23yz') call abort
12end program main
13