2 ! { dg-options "-fbounds-check" }
3 ! { dg-shouldfail "Incorrect size in SHIFT argument of CSHIFT intrinsic: should not be zero-sized" }
5 real, dimension(1,0) :: a, b, c
10 b = cshift (a,sp(1:i)) ! Invalid
12 ! { dg-output "Fortran runtime error: Incorrect size in SHIFT argument of CSHIFT intrinsic: should not be zero-sized" }