1! { dg-do compile }
2program bar
3   type a
4     integer :: i
5   end type a
6   type b
7     type(a),pointer :: j
8   end type b
9   integer, target, save :: k = 42
10   type(b) x
11   data x%j%i/k/  ! { dg-error "is not rightmost part-ref" }
12   print *, x%j%i
13end program bar
14