1! { dg-do run }
2!
3! PR 41629: [OOP] gimplification error on valid code
4!
5! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7  type t1
8    integer :: comp
9  end type
10
11  type(t1), target :: a
12
13  class(t1) :: x
14  pointer :: x       ! This is valid
15
16  a%comp = 3
17  x => a
18  print *,x%comp
19  if (x%comp/=3) STOP 1
20
21end
22