module Children
  use Parents

  implicit none

  type, extends(Parent) :: Child
  contains
    procedure :: Contents
  end type

  private
  public Child

contains

  pure function Contents(this)
    class(Child), intent(in) :: this
    character(14)            :: contents

    contents = 'childcontents'
  end function Contents

end module Children