[patch, committed, fortran] PR82009 [F08] ICE with block construct

[Jerry DeLisle]

This patch committed as obvious after regression testing and auditing 
the code.  New test case added.

Author: jvdelisle
Date: Wed Jul  4 18:08:16 2018
New Revision: 262416

URL: https://gcc.gnu.org/viewcvs?rev=262416&root=gcc&view=rev
Log:
2018-07-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/82009
	* trans-decl.c (gfc_process_block_locals): Delete assert and set
	saved_local_decls = NULL_TREE.

	* gfortran.dg/block_16.f08. New test.

Added:
     trunk/gcc/testsuite/gfortran.dg/block_16.f08
Modified:
     trunk/gcc/fortran/ChangeLog
     trunk/gcc/fortran/trans-decl.c
     trunk/gcc/testsuite/ChangeLog



diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 254768c5828..08c1ebd2d4b 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -6751,7 +6751,7 @@ gfc_process_block_locals (gfc_namespace* ns)
  {
    tree decl;

-  gcc_assert (saved_local_decls == NULL_TREE);
+  saved_local_decls = NULL_TREE;
    has_coarray_vars = false;

    generate_local_vars (ns);