[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gcc-bugs
Subject:    [Bug fortran/82314] internal compiler error: in gfc_conv_expr_descriptor, at fortran/trans-array.c:6
From:       "anlauf at gcc dot gnu.org" <gcc-bugzilla () gcc ! gnu ! org>
Date:       2020-06-30 20:26:20
Message-ID: bug-82314-4-plKAoySPHN () http ! gcc ! gnu ! org/bugzilla/
[Download RAW message or body]

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

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gcc dot gnu.org

--- Comment #6 from anlauf at gcc dot gnu.org ---
(In reply to G. Steinmetz from comment #5)
> Also related :

The ICEs in comment#5 are fixed by

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index de9a45fe4f9..57c7eb8e1f0 100644
--- a/gcc/fortran/check.c
+++ b/gcc/fortran/check.c
@@ -4577,7 +4577,8 @@ gfc_check_rank (gfc_expr *a)
   if (a->expr_type == EXPR_FUNCTION)
     is_variable = a->value.function.esym
                  ? a->value.function.esym->result->attr.pointer
-                 : a->symtree->n.sym->result->attr.pointer;
+                 : (a->symtree->n.sym->result
+                    && a->symtree->n.sym->result->attr.pointer);

   if (a->expr_type == EXPR_OP
       || a->expr_type == EXPR_NULL

giving an (invalid) error message:

    3 |    print *, rank(b)
      |                 1
Error: The argument of the RANK intrinsic at (1) must be a data object

Therefore *not* related.

The ICE from comment#0 remains.=
[prev in list] [next in list] [prev in thread] [next in thread]