blob: da00330e5366e26b9a3060715b010ac4252f0c27 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|