gcc/testsuite/gfortran.dg/select_type_22.f03

   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
   9 contains
  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
  17 end