1! { dg-do compile } 2! { dg-options "-fcheck=pointer" } 3! 4! PR 46809: [OOP] ICE with -fcheck=pointer for CLASS IS 5! 6! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> 7 8 type t 9 end type t 10 11contains 12 13 subroutine sub(a) 14 class(t) :: a 15 select type (a) 16 class is (t) 17 print *, 'Hi there' 18 end select 19 end subroutine 20 21end 22