1! { dg-do run }
2! { dg-options "-fbounds-check" }
3! { dg-shouldfail "Incorrect size in SHIFT argument of CSHIFT intrinsic: should not be zero-sized" }
4program main
5  real, dimension(1,0) :: a, b, c
6  integer :: sp(3), i
7  a = 4.0
8  sp = 1
9  i = 1
10  b = cshift (a,sp(1:i)) ! Invalid
11end program main
12! { dg-output "Fortran runtime error: Incorrect size in SHIFT argument of CSHIFT intrinsic: should not be zero-sized" }
13