From fcd443200bdf5cefcfd2a711ae6fae6239443aca Mon Sep 17 00:00:00 2001 From: Roger Sayle Date: Sun, 17 Dec 2006 18:28:07 +0000 Subject: re PR fortran/30207 (ICE in gfc_dep_resolver with where (a < 0) a(:) = 1) 2006-12-17 Roger Sayle Steven G. Kargl PR fortran/30207 * dependency.c (gfc_full_array_ref_p): New function to test whether the given array ref specifies the entire array. (gfc_dep_resolver): Use gfc_full_array_ref_p to analyze AR_FULL array refs against AR_SECTION array refs, and vice versa. * dependency.h (gfc_full_array_ref_p): Prototype here. * trans-array.c (gfc_conv_expr_descriptor): Use gfc_full_array_ref_p. * gfortran.fortran-torture/execute/where21.f90: New test. From-SVN: r119990 --- gcc/fortran/dependency.h | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/dependency.h') diff --git a/gcc/fortran/dependency.h b/gcc/fortran/dependency.h index 3851ca21d48..06744fd3613 100644 --- a/gcc/fortran/dependency.h +++ b/gcc/fortran/dependency.h @@ -22,6 +22,7 @@ Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA bool gfc_ref_needs_temporary_p (gfc_ref *); +bool gfc_full_array_ref_p (gfc_ref *); gfc_expr *gfc_get_noncopying_intrinsic_argument (gfc_expr *); int gfc_check_fncall_dependency (gfc_expr *, sym_intent, gfc_symbol *, gfc_actual_arglist *); -- cgit v1.2.1