From 48f544ad5c98b668d8d345eaafcf09cc0bd44635 Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 21 Jan 2023 15:19:57 -0800
Subject: fortran: [PR102595]

	PR fortran/102595

gcc/fortran/ChangeLog:

	* data.cc (gfc_assign_data_value): Remove check for PARAMETER in DATA.
	* primary.cc (match_variable): Add check for PARAMETER in DATA.

gcc/testsuite/ChangeLog:

	* gfortran.dg/pr88048.f90: Adjust for changed error message.
	* gfortran.dg/parameter_data0.f90: New test.
---
 gcc/fortran/data.cc | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'gcc/fortran/data.cc')

diff --git a/gcc/fortran/data.cc b/gcc/fortran/data.cc
index 443d35d..d29eb12 100644
--- a/gcc/fortran/data.cc
+++ b/gcc/fortran/data.cc
@@ -244,13 +244,6 @@ 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