1! { dg-do compile }
2! { dg-options "-fno-range-check -Wconversion" }
3! PR 88298 - this used to warn unnecessarily. Original test case by
4! Harald Anlauf.
5subroutine bug (j, js)
6 integer :: j, js(3,2)
7 js(:,:) = cshift (js(:,:), shift=j, dim=1)
8end subroutine bug
9