! { dg-do compile }
! PR 71237 - this used to ICE.
module data_mod
  implicit none

  type data_t
    integer :: i
  end type

  type(data_t), pointer :: data
  integer, pointer :: idata => data%i ! { dg-error "Pointer assignment target in initialization expression does not have the TARGET attribute" }

end module