1! { dg-do run } 2! { dg-options "-fbounds-check -fno-realloc-lhs" } 3! { dg-shouldfail "Incorrect extent in return value of CSHIFT intrinsic in dimension 2: is 3, should be 2" } 4program 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) 10end program main 11! { dg-output "Fortran runtime error: Incorrect extent in return value of CSHIFT intrinsic in dimension 2: is 3, should be 2" } 12