diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-09 04:02:44 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-09 04:02:44 +0000 |
| commit | 094a0eccf9bbd33d452713192905a759f9ac27a9 (patch) | |
| tree | c4608e0e677d6e76c92e0c9328a4573cde948783 /gcc/fortran | |
| parent | 36f972b713ddf335067475c954d2bed3173ceba9 (diff) | |
| download | gcc-094a0eccf9bbd33d452713192905a759f9ac27a9.zip gcc-094a0eccf9bbd33d452713192905a759f9ac27a9.tar.gz gcc-094a0eccf9bbd33d452713192905a759f9ac27a9.tar.bz2 | |
20180-12-08 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/87945
* decl.c (var_element): Inquiry parameters cannit be data objects.
20180-12-08 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/87945
* gfortran.dg/pr87945_1.f90: New test.
* gfortran.dg/pr87945_2.f90: New test.
From-SVN: r266915
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4783724..8b6efd4 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +20180-12-08 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/87945 + * decl.c (var_element): Inquiry parameters cannit be data objects. + 2018-12-08 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/88025 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index ac86798..6bc78cc 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -281,6 +281,14 @@ var_element (gfc_data_variable *new_var) if (m != MATCH_YES) return m; + if (new_var->expr->expr_type == EXPR_CONSTANT + && new_var->expr->symtree == NULL) + { + gfc_error ("Inquiry parameter cannot appear in a " + "data-stmt-object-list at %C"); + return MATCH_ERROR; + } + sym = new_var->expr->symtree->n.sym; /* Symbol should already have an associated type. */ |