blob: baf0aa564e57ef0a08e0773ace06197278575990 [file] [log] [blame]
! { dg-do compile }
! PR 15975, PR 16606
! Pointers to derived types with initialized components
!
! Contributed by Erik Edelmann <erik.edelmann@iki.fi>
!
SUBROUTINE N
TYPE T
INTEGER :: I = 99
END TYPE T
TYPE(T), POINTER :: P
TYPE(T), TARGET :: Q
P => Q
if (P%I.ne.99) STOP 1
END SUBROUTINE N
program test_pr15975
call n ()
end program test_pr15975