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