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