mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
9 lines
269 B
Fortran
9 lines
269 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fno-range-check -Wconversion" }
|
|
! PR 88298 - this used to warn unnecessarily. Original test case by
|
|
! Harald Anlauf.
|
|
subroutine bug (j, js)
|
|
integer :: j, js(3,2)
|
|
js(:,:) = cshift (js(:,:), shift=j, dim=1)
|
|
end subroutine bug
|