From bd85b4dd2dd7b00b6342ed1e33fb48035a3dcb61 Mon Sep 17 00:00:00 2001 From: Harald Anlauf Date: Mon, 8 Mar 2021 21:59:20 +0100 Subject: PR fortran/49278 - ICE when combining DATA with default initialization A variable with the PARAMETER attribute may not appear in a DATA statement. gcc/fortran/ChangeLog: PR fortran/49278 * data.c (gfc_assign_data_value): Reject variable with PARAMETER attribute in DATA statement. gcc/testsuite/ChangeLog: PR fortran/49278 * gfortran.dg/parameter_data.f90: New test. --- gcc/fortran/data.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'gcc/fortran') diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index 13e3506..25e9793 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -244,6 +244,13 @@ gfc_assign_data_value (gfc_expr *lvalue, gfc_expr *rvalue, mpz_t index, "array-element nor a scalar-structure-component"; symbol = lvalue->symtree->n.sym; + if (symbol->attr.flavor == FL_PARAMETER) + { + gfc_error ("PARAMETER %qs shall not appear in a DATA statement at %L", + symbol->name, &lvalue->where); + return false; + } + init = symbol->value; last_ts = &symbol->ts; last_con = NULL; -- cgit v1.1