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