re PR fortran/91643 (ICE in gfc_trans_create_temp_array, at fortran/trans-array.c:1265)

2019-12-10  Thomas Koenig  <tkoenig@gcc.gnu.org>

    PR fortran/91643
    * trans-array.c (gfc_conv_array_parameter): Do not repack
    an assumed rank dummy argument.

2019-12-10  Thomas Koenig  <tkoenig@gcc.gnu.org>

    PR fortran/91643
    * gfortran.dg/assumed_rank_18.f90: New test.

From-SVN: r279203

gcc/fortran/ChangeLog

+2019-12-10  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/91643
+	* trans-array.c (gfc_conv_array_parameter): Do not repack
+	an assumed rank dummy argument.
+
 2019-12-10  Martin Liska  <mliska@suse.cz>
 
 	PR fortran/92874

gcc/fortran/trans-array.c

@@ -8141,6 +8141,8 @@ gfc_conv_array_parameter (gfc_se * se, gfc_expr * expr, bool g77,
 
       if (g77 && optimize && !optimize_size && expr->expr_type == EXPR_VARIABLE
 	  && !is_pointer (expr) && ! gfc_has_dimen_vector_ref (expr)
+	  && !(expr->symtree->n.sym->as
+	       && expr->symtree->n.sym->as->type == AS_ASSUMED_RANK)
 	  && (fsym == NULL || fsym->ts.type != BT_ASSUMED))
 	{
 	  gfc_conv_subref_array_arg (se, expr, g77,

gcc/testsuite/ChangeLog

+2019-12-10  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/91643
+	* gfortran.dg/assumed_rank_18.f90: New test.
+
 2019-12-10  Jakub Jelinek  <jakub@redhat.com>
 
 	PR rtl-optimization/92882

gcc/testsuite/gfortran.dg/assumed_rank_18.f90

+! { dg-do run }
+! PR 91643 - this used to cause an ICE.
+! Original test case by Gerhard Steinmetz.
+program p
+   real :: z(3) = [1.0, 2.0, 3.0]
+   call g(z)
+contains
+   subroutine g(x)
+      real :: x(..)
+      call h(x)
+   end
+   subroutine h(x)
+      real :: x(*)
+      if (x(1) /= 1.0) stop 1
+   end
+end