From: Steven G. Kargl Date: Sat, 5 Oct 2019 03:55:05 +0000 (+0000) Subject: re PR fortran/91785 (ICE in check_assumed_size_reference, at fortran/resolve.c:1601) X-Git-Tag: releases/gcc-9.3.0~575 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4e58c9a2c75ca2b5466b9e6eb87d86b148553ba4;p=thirdparty%2Fgcc.git re PR fortran/91785 (ICE in check_assumed_size_reference, at fortran/resolve.c:1601) 2019-10-04 Steven G. Kargl PR fortran/91785 * primary.c (gfc_match_varspec): Ensure an inquiry parameter has it locus set. 2019-10-04 Steven G. Kargl PR fortran/91785 * gfortran.dg/pr91785.f90: New test. From-SVN: r276619 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7e7e24c35fe6..8f2509cd4157 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2019-10-04 Steven G. Kargl + + PR fortran/91785 + * primary.c (gfc_match_varspec): Ensure an inquiry parameter has + it locus set. + 2019-10-01 Steven G. Kargl PR fortran/91864 diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index a69f71acf7e6..8408e9c3d0d7 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2293,6 +2293,8 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, bool sub_flag, if (tmp && tmp->type == REF_INQUIRY) { + if (!primary->where.lb || !primary->where.nextc) + primary->where = gfc_current_locus; gfc_simplify_expr (primary, 0); if (primary->expr_type == EXPR_CONSTANT) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index fb7965ffc459..27851ee98fe2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2019-10-04 Steven G. Kargl + + PR fortran/91785 + * gfortran.dg/pr91785.f90: New test. + 2019-10-04 Dragan Mladjenovic Backport from mainline diff --git a/gcc/testsuite/gfortran.dg/pr91785.f90 b/gcc/testsuite/gfortran.dg/pr91785.f90 new file mode 100644 index 000000000000..fb3d964fc068 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr91785.f90 @@ -0,0 +1,8 @@ +! { dg-do compile } +! PR fortran/91785 +! Code contributed by Gerhard Steinmetz +program p + complex :: a(*) ! { dg-error "Assumed size array at" } + real :: b(2) + b = a%im ! { dg-error "upper bound in the last dimension" } +end