1  /* Header for functions resolving DATA statements.
       2     Copyright (C) 2007-2023 Free Software Foundation, Inc.
       3  
       4  This file is part of GCC.
       5  
       6  GCC is free software; you can redistribute it and/or modify it under
       7  the terms of the GNU General Public License as published by the Free
       8  Software Foundation; either version 3, or (at your option) any later
       9  version.
      10  
      11  GCC is distributed in the hope that it will be useful, but WITHOUT ANY
      12  WARRANTY; without even the implied warranty of MERCHANTABILITY or
      13  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
      14  for more details.
      15  
      16  You should have received a copy of the GNU General Public License
      17  along with GCC; see the file COPYING3.  If not see
      18  <http://www.gnu.org/licenses/>.  */
      19  
      20  void gfc_formalize_init_value (gfc_symbol *);
      21  void gfc_get_section_index (gfc_array_ref *, mpz_t *, mpz_t *);
      22  bool gfc_assign_data_value (gfc_expr *, gfc_expr *, mpz_t, mpz_t *);
      23  void gfc_advance_section (mpz_t *, gfc_array_ref *, mpz_t *);