[Bug fortran/41781] [OOP] bogus undefined label error with SELECT TYPE.

[janus at gcc dot gnu dot org]

------- Comment #8 from janus at gcc dot gnu dot org  2009-10-22 08:53 -------
Subject: Bug 41781

Author: janus
Date: Thu Oct 22 08:53:26 2009
New Revision: 153446

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=153446
Log:
2009-10-22  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/41781
        * resolve.c (resolve_codes): Don't clear 'cs_base' for BLOCK
constructs,
        to make sure labels are treated correctly.
        * symbol.c (gfc_get_st_label): Create labels in the right namespace.
        For BLOCK constructs go into the parent namespace.


2009-10-22  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/41781
        * gfortran.dg/goto_8.f90: New test case.

Added:
    trunk/gcc/testsuite/gfortran.dg/goto_8.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/symbol.c
    trunk/gcc/testsuite/ChangeLog


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41781