! { 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 |