gcc/testsuite/gfortran.dg/cshift_bounds_4.f90

   1 ! { dg-do run }
   2 ! { dg-shouldfail "Incorrect extent in SHIFT argument of CSHIFT intrinsic in dimension 1: is 3, should be 2" }
   3 ! { dg-options "-fbounds-check" }
   4 program main
   5   integer, dimension(:,:), allocatable :: a, b
   6   integer, dimension(:), allocatable :: sh
   7   allocate (a(2,2))
   8   allocate (b(2,2))
   9   allocate (sh(3))
  10   a = 1
  11   b = cshift(a,sh)
  12 end program main
  13 ! { dg-output "Fortran runtime error: Incorrect extent in SHIFT argument of CSHIFT intrinsic in dimension 1: is 3, should be 2" }