1! { dg-do compile }
2program main
3  type t
4    integer :: x
5  end type t
6  type(t), dimension(2) :: a, b
7  a(1)%x = 1
8  a(2)%x = 2
9  b = eoshift(a,1) ! { dg-error "Missing 'boundary' argument to 'eoshift' intrinsic" }
10  print *,b%x
11end program main
12