From 8a6ce2102b0463164300af62a38960a551fee17e Mon Sep 17 00:00:00 2001 From: tobi Date: Wed, 15 Feb 2006 11:02:21 +0000 Subject: [PATCH] * check.c (gfc_check_minloc_maxloc, check_reduction): Don't call dim_range_check on not-present optional dim argument. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111108 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/check.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5c6a3f73817..a86394ec95b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-02-15 Tobias Schlüter + + * check.c (gfc_check_minloc_maxloc, check_reduction): Don't call + dim_range_check on not-present optional dim argument. + 2006-02-15 Jakub Jelinek PR libgomp/25938 diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 6d3fd3d825e..e8933e422aa 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -1576,7 +1576,7 @@ gfc_check_minloc_maxloc (gfc_actual_arglist * ap) if (dim_check (d, 1, 1) == FAILURE) return FAILURE; - if (dim_rank_check (d, a, 0) == FAILURE) + if (d && dim_rank_check (d, a, 0) == FAILURE) return FAILURE; if (m != NULL && type_check (m, 2, BT_LOGICAL) == FAILURE) @@ -1633,7 +1633,7 @@ check_reduction (gfc_actual_arglist * ap) if (dim_check (d, 1, 1) == FAILURE) return FAILURE; - if (dim_rank_check (d, a, 0) == FAILURE) + if (d && dim_rank_check (d, a, 0) == FAILURE) return FAILURE; if (m != NULL && type_check (m, 2, BT_LOGICAL) == FAILURE) -- 2.11.0