1  /* Header for dependency analysis
       2     Copyright (C) 2000-2023 Free Software Foundation, Inc.
       3     Contributed by Paul Brook
       4  
       5  This file is part of GCC.
       6  
       7  GCC is free software; you can redistribute it and/or modify it under
       8  the terms of the GNU General Public License as published by the Free
       9  Software Foundation; either version 3, or (at your option) any later
      10  version.
      11  
      12  GCC is distributed in the hope that it will be useful, but WITHOUT ANY
      13  WARRANTY; without even the implied warranty of MERCHANTABILITY or
      14  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
      15  for more details.
      16  
      17  You should have received a copy of the GNU General Public License
      18  along with GCC; see the file COPYING3.  If not see
      19  <http://www.gnu.org/licenses/>.  */
      20  
      21  /****************************** Enums *********************************/
      22  enum gfc_dep_check
      23  {
      24    NOT_ELEMENTAL,        /* Not elemental case: normal dependency check.  */
      25    ELEM_CHECK_VARIABLE,  /* Test whether variables overlap.  */
      26    ELEM_DONT_CHECK_VARIABLE  /* Test whether variables overlap only if used 
      27  			       in an expression.  */
      28  };
      29  
      30  /*********************** Functions prototypes **************************/
      31  
      32  bool gfc_ref_needs_temporary_p (gfc_ref *);
      33  bool gfc_full_array_ref_p (gfc_ref *, bool *);
      34  gfc_expr *gfc_get_noncopying_intrinsic_argument (gfc_expr *);
      35  int gfc_check_fncall_dependency (gfc_expr *, sym_intent, gfc_symbol *,
      36  				 gfc_actual_arglist *, gfc_dep_check);
      37  int gfc_check_dependency (gfc_expr *, gfc_expr *, bool);
      38  int gfc_expr_is_one (gfc_expr *, int);
      39  
      40  int gfc_dep_resolver (gfc_ref *, gfc_ref *, gfc_reverse *,
      41  		      bool identical = false);
      42  int gfc_are_equivalenced_arrays (gfc_expr *, gfc_expr *);
      43  
      44  gfc_expr * gfc_discard_nops (gfc_expr *);