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