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