This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gfortran, committed] Fix regressions introduced by patch for PR 25045
- From: Tobias dot Schlueter at Physik dot Uni-Muenchen dot DE
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Cc: Thomas Koenig <thomas dot koenig at online dot de>, hjl at lucon dot org, grigory_zagorodnev at linux dot intel dot com
- Date: Wed, 15 Feb 2006 12:03:30 +0100
- Subject: [gfortran, committed] Fix regressions introduced by patch for PR 25045
I committed the following under the obviously correct rule. This should fix
the regressions caused by Thomas' patch which were reported by HJ Lu
<http://gcc.gnu.org/ml/gcc/2006-02/msg00247.html>. I don't have access to any
of the affected architectures, but this is the right thing to do anyway, and
will certainly fix this. Built and tested on i686-pc-linux.
H.J., could you please CC the Fortran list when reporting issues with the
Fortran FE, I only stumbled on your message by accident.
- Tobi
Index: ChangeLog
===================================================================
--- ChangeLog (revision 111107)
+++ ChangeLog (working copy)
@@ -1,3 +1,8 @@
+2006-02-15 Tobias Schlü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
Index: check.c
===================================================================
--- check.c (revision 111107)
+++ check.c (working copy)
@@ -1576,7 +1576,7 @@ gfc_check_minloc_maxloc (gfc_actual_argl
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)