[Bug fortran/85687] ICE in gfc_sym_identifier, at fortran/trans-decl.c:351

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

   What|Removed |Added

 Status|NEW |RESOLVED
 Resolution|--- |FIXED
   Target Milestone|--- |6.5

--- Comment #7 from kargl at gcc dot gnu.org ---
Fixed.

[Bug fortran/85687] ICE in gfc_sym_identifier, at fortran/trans-decl.c:351

[kargl at gcc dot gnu.org]

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

--- Comment #6 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Fri May 11 18:33:05 2018
New Revision: 260179

URL: https://gcc.gnu.org/viewcvs?rev=260179=gcc=rev
Log:
2018-05-11  Steven G. Kargl  

PR fortran/85687
Backport from trunk
* check.c (gfc_check_rank): Check that the argument is a data object.

2018-05-11  Steven G. Kargl  

PR fortran/85687
Backport from trunk
* gfortran.dg/pr85687.f90: new test.

Added:
branches/gcc-6-branch/gcc/testsuite/gfortran.dg/pr85687.f90
Modified:
branches/gcc-6-branch/gcc/fortran/ChangeLog
branches/gcc-6-branch/gcc/fortran/check.c
branches/gcc-6-branch/gcc/testsuite/ChangeLog

[Bug fortran/85687] ICE in gfc_sym_identifier, at fortran/trans-decl.c:351

[kargl at gcc dot gnu.org]

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

--- Comment #5 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Fri May 11 17:58:03 2018
New Revision: 260174

URL: https://gcc.gnu.org/viewcvs?rev=260174=gcc=rev
Log:
2018-05-11  Steven G. Kargl  

PR fortran/85687
Backport from trunk
* check.c (gfc_check_rank): Check that the argument is a data object.

2018-05-11  Steven G. Kargl  

PR fortran/85687
Backport from trunk
* gfortran.dg/pr85687.f90: new test.

Added:
branches/gcc-7-branch/gcc/testsuite/gfortran.dg/pr85687.f90
Modified:
branches/gcc-7-branch/gcc/fortran/ChangeLog
branches/gcc-7-branch/gcc/fortran/check.c
branches/gcc-7-branch/gcc/testsuite/ChangeLog

[Bug fortran/85687] ICE in gfc_sym_identifier, at fortran/trans-decl.c:351

[kargl at gcc dot gnu.org]

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

--- Comment #4 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Fri May 11 17:29:14 2018
New Revision: 260169

URL: https://gcc.gnu.org/viewcvs?rev=260169=gcc=rev
Log:
2018-05-11  Steven G. Kargl  

PR fortran/85687
Backport from trunk
* check.c (gfc_check_rank): Check that the argument is a data object.

2018-05-11  Steven G. Kargl  

PR fortran/85687
Backport from trunk
* gfortran.dg/pr85687.f90: new test.

Added:
branches/gcc-8-branch/gcc/testsuite/gfortran.dg/pr85687.f90
Modified:
branches/gcc-8-branch/gcc/fortran/ChangeLog
branches/gcc-8-branch/gcc/fortran/check.c
branches/gcc-8-branch/gcc/testsuite/ChangeLog

[Bug fortran/85687] ICE in gfc_sym_identifier, at fortran/trans-decl.c:351

[kargl at gcc dot gnu.org]

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

--- Comment #3 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Thu May 10 22:49:44 2018
New Revision: 260141

URL: https://gcc.gnu.org/viewcvs?rev=260141=gcc=rev
Log:
2018-05-10  Steven G. Kargl  

PR fortran/85687
* check.c (gfc_check_rank): Check that the argument is a data object.

2018-05-10  Steven G. Kargl  

PR fortran/85687
* gfortran.dg/pr85687.f90: new test.

Added:
trunk/gcc/testsuite/gfortran.dg/pr85687.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/check.c
trunk/gcc/testsuite/ChangeLog

[Bug fortran/85687] ICE in gfc_sym_identifier, at fortran/trans-decl.c:351

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

   What|Removed |Added

 CC||kargl at gcc dot gnu.org

--- Comment #2 from kargl at gcc dot gnu.org ---
Index: gcc/fortran/check.c
===
--- gcc/fortran/check.c (revision 260016)
+++ gcc/fortran/check.c (working copy)
@@ -3894,8 +3894,11 @@ gfc_check_rank (gfc_expr *a)
  ? a->value.function.esym->result->attr.pointer
  : a->symtree->n.sym->result->attr.pointer;

-  if (a->expr_type == EXPR_OP || a->expr_type == EXPR_NULL
-  || a->expr_type == EXPR_COMPCALL|| a->expr_type == EXPR_PPC
+  if (a->expr_type == EXPR_OP
+  || a->expr_type == EXPR_NULL
+  || a->expr_type == EXPR_COMPCALL
+  || a->expr_type == EXPR_PPC
+  || a->ts.type == BT_PROCEDURE
   || !is_variable)
 {
   gfc_error ("The argument of the RANK intrinsic at %L must be a data "

[Bug fortran/85687] ICE in gfc_sym_identifier, at fortran/trans-decl.c:351

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres  changed:

   What|Removed |Added

   Priority|P3  |P4
 Status|UNCONFIRMED |NEW
   Last reconfirmed||2018-05-07
 Ever confirmed|0   |1

--- Comment #1 from Dominique d'Humieres  ---
Confirmed from 4.8 up to trunk (9.0). Note that -std=f2018 is accepted on 8.1
and 9.0 only.