OSDN Git Service

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