blob: fab1b8c1599de6370f94116807e31f9e5c1b430b [file] [log] [blame]
! { dg-do run }
!
! PR 41629: [OOP] gimplification error on valid code
!
! Contributed by Janus Weil <janus@gcc.gnu.org>
type t1
integer :: comp
end type
type(t1), target :: a
class(t1) :: x
pointer :: x ! This is valid
a%comp = 3
x => a
print *,x%comp
if (x%comp/=3) STOP 1
end