1! { dg-do compile }
2! { dg-options "-O0 -fipa-reference" }
3
4  subroutine sub
5    type :: a
6      integer :: i = 42
7    end type a
8    type(a), target :: dt(2)
9    integer, pointer :: ip(:)
10    ip => dt%i
11  end subroutine
12