From 094a0eccf9bbd33d452713192905a759f9ac27a9 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Sun, 9 Dec 2018 04:02:44 +0000 Subject: 20180-12-08 Steven G. Kargl PR fortran/87945 * decl.c (var_element): Inquiry parameters cannit be data objects. 20180-12-08 Steven G. Kargl PR fortran/87945 * gfortran.dg/pr87945_1.f90: New test. * gfortran.dg/pr87945_2.f90: New test. From-SVN: r266915 --- gcc/fortran/decl.c | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'gcc/fortran/decl.c') 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. */ -- cgit v1.1