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