gcc/testsuite/gfortran.dg/cshift_bounds_2.f90

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