1! { dg-do compile }
2!
3! PR 47330: [OOP] ICE on invalid source in connection with SELECT TYPE
4!
5! Contributed by Andrew Benson <abenson@its.caltech.edu>
6
7  type treeNode
8  end type
9contains
10  subroutine proc1 (thisNode)
11    class (treeNode), target :: thisNode
12    select type (thisNode)
13    type is (treeNode)
14       workNode => thisNode  ! { dg-error "Non-POINTER in pointer association context" }
15    end select
16  end subroutine
17end
18