PR fortran/51605
* parse.c (gfc_fixup_sibling_symbols): Regard FL_LABEL as
local symbol.
2011-12-19 Tobias Burnus <burnus@net-b.de>
PR fortran/51605
* gfortran.dg/block_10.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@182497
138bc75d-0d04-0410-961f-
82ee72b054a4
2011-12-19 Tobias Burnus <burnus@net-b.de>
PR fortran/51605
+ * parse.c (gfc_fixup_sibling_symbols): Regard FL_LABEL as
+ local symbol.
+
+2011-12-19 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/51605
* match.c (gfc_match_select_type): Handle
scalar polymophic coarrays.
(select_type_set_tmp, ): Ditto; avoid segfault if !class_ok.
|| old_sym->attr.intrinsic
|| old_sym->attr.generic
|| old_sym->attr.flavor == FL_NAMELIST
+ || old_sym->attr.flavor == FL_LABEL
|| old_sym->attr.proc == PROC_ST_FUNCTION))
{
/* Replace it with the symbol from the parent namespace. */
+2011-12-19 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/51605
+ * gfortran.dg/block_10.f90: New.
+
2011-12-19 Jason Merrill <jason@redhat.com>
PR c++/51553
--- /dev/null
+! { dg-do compile }
+!
+! PR fortran/51605
+!
+
+contains
+ subroutine foo
+ BLOCK_NAME: block
+ end block BLOCK_NAME
+ end subroutine foo
+
+ subroutine BLOCK_NAME()
+ end subroutine BLOCK_NAME
+
+ subroutine bar()
+ end subroutine bar
+end
+
+subroutine test()
+contains
+ subroutine BLOCK_NAME()
+ end subroutine BLOCK_NAME
+
+ subroutine foobar()
+ end subroutine foobar
+
+ subroutine foo
+ BLOCK_NAME: block
+ end block BLOCK_NAME
+ end subroutine foo
+
+ subroutine bar()
+ end subroutine bar
+end