diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-10-02 17:09:45 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-10-02 17:09:45 +0000 |
| commit | 307de1007192b12dcf5b21b4444904567a543b2e (patch) | |
| tree | 890329d4ee16a193b127d0f7b632d11b7adcd96e /gcc/fortran/primary.c | |
| parent | 939e9f696b843f2c6472ac0fd541399e2b3faa7e (diff) | |
| download | gcc-307de1007192b12dcf5b21b4444904567a543b2e.zip gcc-307de1007192b12dcf5b21b4444904567a543b2e.tar.gz gcc-307de1007192b12dcf5b21b4444904567a543b2e.tar.bz2 | |
re PR fortran/91785 (ICE in check_assumed_size_reference, at fortran/resolve.c:1601)
2019-10-02 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/91785
* primary.c (gfc_match_varspec): Ensure an inquiry parameter has
it locus set.
2019-10-02 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/91785
* gfortran.dg/pr91785.f90: New test.
From-SVN: r276473
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index e94ea82..7c65b2e 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2331,6 +2331,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) |