[multiple changes]

2015-10-29  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/67885
	* trans-decl.c (generate_local_decl): Mark PARAMETER entities in
	BLOCK construct.

2015-10-26  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/67885
	* gfortran.dg/pr67885.f90: New test.

From-SVN: r229540

gcc/fortran/ChangeLog

+2015-10-29  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/67885
+	* trans-decl.c (generate_local_decl): Mark PARAMETER entities in
+	BLOCK construct.
+
 2015-10-29  Andrew MacLeod  <amacleod@redhat.com>
 
 	* array.c: Reorder #include's and remove duplicates.

gcc/fortran/trans-decl.c

@@ -5215,6 +5215,16 @@ generate_local_decl (gfc_symbol * sym)
 			  "Unused parameter %qs which has been explicitly "
 			  "imported at %L", sym->name, &sym->declared_at);
 	}
+
+      if (sym->ns
+	  && sym->ns->parent
+	  && sym->ns->parent->code
+	  && sym->ns->parent->code->op == EXEC_BLOCK)
+	{
+	  if (sym->attr.referenced)
+	    gfc_get_symbol_decl (sym);
+	  sym->mark = 1;
+	}
     }
   else if (sym->attr.flavor == FL_PROCEDURE)
     {

gcc/testsuite/ChangeLog

+2015-10-29  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/67885
+	* gfortran.dg/pr67885.f90: New test.
+
 2015-10-29  Jeff Law  <law@redhat.com>
 
         PR tree-optimization/67892

gcc/testsuite/gfortran.dg/pr67885.f90

+! { dg-do run }
+! PR fortran/67885
+! Original code contributed by Gerhard Steinmetz
+! gerhard dot steinmetz dot fortran at t-online dot de
+program p
+   block
+      integer, parameter :: a(2) = [1, 2]
+      integer :: x(2)
+      x = a
+      if (x(1) /= 1) call abort
+   end block
+end