blob: da00330e5366e26b9a3060715b010ac4252f0c27 [file] [log] [blame]
! { 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