* 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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5c6a3f7..a86394e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-15  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * 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  <jakub@redhat.com>
 
        PR libgomp/25938

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index 6d3fd3d..e8933e4 100644 (file)
--- 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)