re PR fortran/64771 (ICE(segfault) when passing coarrays around; ICE in gfc_zero_size...

2015-01-27  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>

        PR fortran/64771
        * interface.c: Remove <algorithm>.
        (check_dummy_characteristics): Use MAX instead of std::max.

From-SVN: r220182

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 6a9b71d..820aad5 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2015-01-27  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+
+       PR fortran/64771
+       * interface.c: Remove <algorithm>.
+       (check_dummy_characteristics): Use MAX instead of std::max.
+
 2015-01-26  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/62044

diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c
index 0463a58..837dc8c 100644 (file)
--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -63,8 +63,6 @@ along with GCC; see the file COPYING3.  If not see
    formal argument list points to symbols within the same namespace as
    the program unit name.  */
 
-#include <algorithm>  /* For std::max.  */
-
 #include "config.h"
 #include "system.h"
 #include "coretypes.h"
@@ -1215,7 +1213,7 @@ check_dummy_characteristics (gfc_symbol *s1, gfc_symbol *s2,
        }
 
       if (s1->as->type == AS_EXPLICIT)
-       for (i = 0; i < s1->as->rank + std::max(0, s1->as->corank-1); i++)
+       for (i = 0; i < s1->as->rank + MAX (0, s1->as->corank-1); i++)
          {
            shape1 = gfc_subtract (gfc_copy_expr (s1->as->upper[i]),
                                  gfc_copy_expr (s1->as->lower[i]));