summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr43688.f90
blob: face02212b8f368e9b9b33c9b56767d7f907237d (plain)
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