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