! Copyright (C) 2021-2026 Free Software Foundation, Inc.! Contributed by Oracle.!! This file is part of GNU Binutils.!! This program is free software; you can redistribute it and/or modify! it under the terms of the GNU General Public License as published by! the Free Software Foundation; either version 3, or (at your option)! any later version.!! This program is distributed in the hope that it will be useful,! but WITHOUT ANY WARRANTY; without even the implied warranty of! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the! GNU General Public License for more details.!! You should have received a copy of the GNU General Public License! along with this program; if not, write to the Free Software! Foundation, 51 Franklin Street - Fifth Floor, Boston,! MA 02110-1301, USA.!! Developer Sampling Collector interface include file         interface         ! Routine to record a sample in the experiment.        subroutine collector_sample(name)        character(len=*), intent(in) :: name        end subroutine         ! Routine to suspend data collection during an experiment.        subroutine collector_pause()        end subroutine         ! Routine to resume data collection during an experiment.        subroutine collector_resume()        end subroutine         ! Routine to stop all data collection and close the experiment.        subroutine collector_terminate_expt()        end subroutine         end interface