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 14end 15