re PR fortran/47730 ([OOP] ICE on invalid source in connection with SELECT TYPE)

2011-02-14  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/47730
	* parse.c (gfc_build_block_ns): Commit 'block@' symbol.

2011-02-14  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/47730
	* gfortran.dg/select_type_22.f03: New.

From-SVN: r170157

gcc/fortran/ChangeLog

 2011-02-14  Janus Weil  <janus@gcc.gnu.org>
 
+	PR fortran/47730
+	* parse.c (gfc_build_block_ns): Commit 'block@' symbol.
+
+2011-02-14  Janus Weil  <janus@gcc.gnu.org>
+
 	PR fortran/47728
 	* class.c (gfc_build_class_symbol): Give a fatal error on polymorphic
 	arrays.

gcc/fortran/parse.c

@@ -3154,6 +3154,7 @@ gfc_build_block_ns (gfc_namespace *parent_ns)
       t = gfc_add_flavor (&my_ns->proc_name->attr, FL_LABEL,
 			  my_ns->proc_name->name, NULL);
       gcc_assert (t == SUCCESS);
+      gfc_commit_symbol (my_ns->proc_name);
     }
 
   if (parent_ns->proc_name)

gcc/testsuite/ChangeLog

+2011-02-14  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/47730
+	* gfortran.dg/select_type_22.f03: New.
+
 2011-02-14  Jason Merrill  <jason@redhat.com>
 
 	* g++.dg/cpp0x/regress/enum1.C: New.

gcc/testsuite/gfortran.dg/select_type_22.f03

+! { dg-do compile }
+!
+! PR 47330: [OOP] ICE on invalid source in connection with SELECT TYPE
+!
+! Contributed by Andrew Benson <abenson@its.caltech.edu>
+
+  type treeNode
+  end type
+contains
+  subroutine proc1 (thisNode)
+    class (treeNode), target :: thisNode
+    select type (thisNode)
+    type is (treeNode)
+       workNode => thisNode  ! { dg-error "Non-POINTER in pointer association context" }
+    end select
+  end subroutine
+end