OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Thomas Koenig 2019-12-10 21:59:09 +00:00
parent 6004c17b4d
commit 0cc063af32
4 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
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

2
gcc/fortran/trans-array.c
View File

@ -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,

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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

16
gcc/testsuite/gfortran.dg/assumed_rank_18.f90 Normal file
View File

@ -0,0 +1,16 @@
! { 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