gcc/testsuite/gfortran.dg/class_43.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 49417: [4.6/4.7 Regression] [OOP] ICE on invalid CLASS component declaration
   4 !
   5 ! Contributed by Andrew Benson <abenson@its.caltech.edu>
   6
   7  type :: nodeWrapper
   8  end type nodeWrapper
   9
  10  type, extends(nodeWrapper) :: treeNode
  11     class(nodeWrapper) :: subComponent   ! { dg-error "must be allocatable or pointer" }
  12  end type treeNode
  13
  14 end