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