has_fields Function

private recursive function has_fields(self)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_category_node),	intent(inout)			::	self

Return Value logical

Contents

None