gcc/testsuite/gfortran.dg/select_type_30.f03

   1 ! { dg-do compile }\r
   2 !\r
   3 ! PR 54881: [4.8 Regression] [OOP] ICE in fold_convert_loc, at fold-const.c:2016\r
   4 !\r
   5 ! Contributed by Richard L Lozes <richard@lozestech.com>\r
   6 \r
   7   implicit none\r
   8 \r
   9   type treeNode\r
  10   end type\r
  11 \r
  12   class(treeNode), pointer :: theNode\r
  13   logical :: lstatus\r
  14   \r
  15   select type( theNode )\r
  16   type is (treeNode)\r
  17     call DestroyNode (theNode, lstatus )\r
  18   class is (treeNode)\r
  19     call DestroyNode (theNode, lstatus )\r
  20   end select\r
  21   \r
  22 contains\r
  23 \r
  24   subroutine DestroyNode( theNode, lstatus )\r
  25     type(treeNode), pointer :: theNode\r
  26     logical, intent(out) :: lstatus\r
  27   end subroutine\r
  28   \r
  29 end \r