1! { dg-do compile }
2subroutine foo(u, n, fl)
3  implicit none
4  integer n
5  real u(5, n), fl(5,n), wl(5,n)
6  real c
7  c = 1
8  wl = u
9  fl = cshift(c * wl, 1, 2)
10end subroutine foo
11