3 ! PR 47330: [OOP] ICE on invalid source in connection with SELECT TYPE
5 ! Contributed by Andrew Benson <abenson@its.caltech.edu>
10 subroutine proc1 (thisNode)
11 class (treeNode), target :: thisNode
12 select type (thisNode)
14 workNode => thisNode ! { dg-error "Non-POINTER in pointer association context" }