gcc-4.9/gcc/testsuite/gfortran.dg/pr43688.f90


1
2
3
4
5
6
7
8
9
10
11

! { dg-do compile }
! { dg-options "-O0 -fipa-reference" }

  subroutine sub
    type :: a
      integer :: i = 42
    end type a
    type(a), target :: dt(2)
    integer, pointer :: ip(:)
    ip => dt%i
  end subroutine