[Bug fortran/62142] [4.9/5 Regression] internal compiler error: Segmentation fault (X = X - L*floor(X/L))

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62142

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Assignee|unassigned at gcc dot gnu.org      |tkoenig at gcc dot 
gnu.org

--- Comment #7 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
A rather obvious fix:

Index: trans-expr.c
===================================================================
--- trans-expr.c        (Revision 213778)
+++ trans-expr.c        (Arbeitskopie)
@@ -7895,7 +7895,7 @@
          for (a = expr2->value.function.actual; a != NULL; a = a->next)        
            {                                                                   
              e1 = a->expr;                                                     
-             if (e1->rank > 0 && !is_runtime_conformable (expr1, e1))
+             if (e1 && e1->rank > 0 && !is_runtime_conformable (expr1, e1))
                return false;
            }
          return true;
@@ -7906,7 +7906,7 @@
          for (a = expr2->value.function.actual; a != NULL; a = a->next)
            {
              e1 = a->expr;
-             if (e1->rank > 0 && !is_runtime_conformable (expr1, e1))
+             if (e1 && e1->rank > 0 && !is_runtime_conformable (expr1, e1))
                return false;
            }
          return true;